1:
2:
3:
4:
5:
6:
7:
8:
9:

type
  TMyRecord = record
         a: integer;
  end;

// anderes Beispiel:

type
 TMyArray = Array of Integer;					

1:
2:
3:

var
 MyRecord: TMyRecord;
 MyArray: TMyArray;					

1:
2:
3:
4:
5:
6:

type
  TForm1 = class(TForm)
    ...

var
  Form1: TForm1;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

type
  TUser = record
    Name: String[15];
    Alter: Byte;
    Postings: Integer;
  end;

var
 User: Array[1..10] of TUser;					

1:
2:

TMyRecord[2].Alter := 23;
TMyRecord[2].Name := 'Hans';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

type TExample = record
  a, b, c: String;
  d, e, f: Integer;
end;

Procedure ExampleProcedure;
var Variable: TExample;
begin
  Variable.a := 'Das';
  Variable.b := 'Funktioniert';
  Variable.c := 'Nur mit einem Record.';
  Variable.d := 666;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

type
  TMyRecord = record
  strict private
    FNumber: Integer;
  public
    property Number: Integer read FNumber write FNumber;
    procedure MyProcedure;
  end;

{ TMyRecord }

procedure TMyRecord.MyProcedure;
begin
  ShowMessage('My number is '+IntToStr(FNumber));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyRecord: TMyRecord;
begin
  MyRecord.Number := 5;
  MyRecord.MyProcedure;
end;					

1:
2:

SomeRecord.Init(3);                // mit procedure Init(Number: Integer);
SomeRecord := TMyRecord.Create(3); // mit constructor Create(Number: Integer);					

1:
2:

Finalize(self);
FillChar(self, SizeOf(self), 0);