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

type 
  TPerson = Record
    Name, Vorname: string;
    GebDat: TDateTime;
    ...
  end;

var
  Heinz: TPerson;
...
begin
  Heinz.Vorname := 'Heinz';                    

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

type
  TFrage=record
    frage:string;
    antwort1:string;
    antwort2:string;
    antwort3:string;
    antwort4:string;
    richtig:integer;
  end;

var Fragen : array[1..100] of TFrage;

//So kannst du nun z.B. auf Frage1 zugreifen:
Frage[1].frage:='Blubb?';                    

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

type
 MyRecord = packed record
 strict private
   FMode: Integer;
   function get(Index: Integer): Integer;
   procedure put(Index: Integer; const Value: Integer);
 public
   property Mode: Integer read FMode write FMode;
   property Arr[Index: Integer]: Integer read get write put; default;
   class function HiWorld: MyRecord; static;
   type MyType = (a,b);
   case MyType of
     a: (I: ^MyRecord);
     b: (FHello: set of MySet)
 end;