Zeiger einer Funktion übergeben

[Anonymos]

Hallo alle zusammen

Also als erstes mal, falls jemand auf die Idee kommt die Suche zu benutzen und nach meinem Titel zu suchen,
den muss ich lieder enttäuschen.
JA ich habe was gefunden , des aber leider nicht funktioniert hat

http://www.delphipraxis.net/internal...er+%FCbergeben

Mein Problem ist folgendes:

Ich bin grad dabei mir eine Komponente zu schreiben, be der ich eine Unterklasse ertellen möchte (Sozusagen, ein "Lable", dass ich in meine Kompo integrieren möchte)

Wenn ich eine Eigenschaft meiner Kompo verändere rufe ich in den zugehörigen Funktionen jeweils die Funktion "Refresh;" auf, um die Komponente neu zu zeichnen.
Das ganze wollte ich jetz auch für die Unterklasse machen.
Ich hab mir gedacht, ich könnte der Unterklasse einfach den Zeiger auf eben diese Refreshprozedur übergeben und dann einfach diesen aufrufen.

Code:

TRefresh = procedure();
TTachoLable = class(TPersistent)
  constructor Create(OwnerRefresh: TRefresh);
private
  fOwnerRefresh   : TRefresh;
...
end;
TTacho = class(TGraphicControl)       
private
  fTachoLable     : TTachoLable;
...
end;

...

constructor TTachoLable.Create(OwnerRefresh: TRefresh);
begin
  inherited Create;  
  fOwnerRefresh := OwnerRefresh; 
end;

constructor TTacho.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  fTachoLable := TTachoLable.Create(@Refresh);
end;

Wenn ich versuche den Code so zu kompilieren bekomme ich folgende Fehlermeldung:
[In der entsprechenden Zeile: "fTachoLable := TTachoLable.Create(@Refresh);" : Variable erforderlich

Ich bin mir eigentlich recht sicher, dass hier drin kein Falscher Quellcode am Ende noch stehen bleibt, also was hab ich hier falsch gemacht? Ich kann mir des im mom leider nich mehr selbst erklären.

mfg