Callback funktion in Objekten ?

[markusj]

Delphi-Quellcode:

type TPCallback = procedure

procedure callback;
procedure setCallBack;
procedure callCallBack;

var cb : TPCallBack;

...


procedure callback;
 begin
 //dosomething
 end;

procedure setCallBack;
 begin
 cb := callback;
 end;

procedure callCallBack;
 begin
 cb;
 end;

Anmerkung: evtl. Musst du TPCallback = procedure of Object machen, wenn es sich um eine Prozedur/Funktion eines Objektes Handelt...

EDIT: Wieso ignoriert der meine Einückung?