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

type
karte = record { Eigenschaften einer Karte }
  msg:string; { Auszugebende Nachricht }
  todo:procedure; { Prozedur was zu tun ist }
end;

var
karten : array[0..14] of karte; { Die Karten }					

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

type TKarte = packed record
  msg: String[20];
  todo: procedure;
  end;

procedure bla;
begin
  MessageBox(0,'elele',nil,0);
end;

procedure TForm1.FormCreate(Sender: TObject);
var karte : TKarte;
begin
  karte.msg := 'hallo';
  karte.todo := bla;  //procedure setzen

  karte.todo;  //procedure aufrufen
end;					

1:
2:
3:
4:

todo:=var a:integer;
begin
  algorithmus
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

type
    Tkarte = class { Klasse deklarieren }
    private
    FMsg:string; { Feld zur Speicherung der auszugebenden Nachricht }
    public
        constructor Create; virtual; reintroduce; //Dinge, die während des Erzeugens zu erledigen sind
        destructor Destroy; override; //Dinge zum Freigeben des Speichers

        procedure todo; { Prozedur was zu tun ist }

        property Msg: String read FMsg write FMsg; //Zugriff auf diese Nachricht auch für andere Units ermöglichenermöglichen.
    end;

{...}

implementation

{...}

constructor TKarte.Create;
begin
    inherited; //WICHTIG!!!

    //Weitere zu erledigende Dinge ...
end;

constructor TKarte.Create;
begin
    //Zu erledigende Dinge ...

    inherited; //WICHTIG!!!
end;

procedure TKarte.Todo;
begin
    //Dein Source!
end;