IdHttp - OnWorkBegin wird nicht ausgelöst

[KahPee]

Kannst du mir das mal als konkretes Beispiel zeigen?

Hab mal in den Quelltext meien aktuellen Probleme geschrieben.

Delphi-Quellcode:

TWorkBegin = procedure(Sender: TObject; AWorkMode: TWorkMode;const AWorkCountMax: Integer) of object;
...
var idHttp: Tidhttp;
    OnWorkbegin: TWorkbegin;

implementation
//falsche Definition der Methode, wie müsste die eigentlich aussehen?
procedure TWorkbegin(Sender: TObject;AWorkMode: TWorkMode; const AWorkCountMax: Integer);  
begin
 showmessage('test');
end;


procedure MACHWAS;
begin
   IdHttp:=TIdHttp.Create;
   IdHttp.Onworkbegin:=Onworkbegin; //Fehler, dass beide Methoden unterschiedliche Parameter haben
   //Lade hier was runter
   IdHttp.Free;
end;

Vllt kann jemand das mal ja so korrigieren das das klappt. Habe vorher noch nicht mit Methodenzeigern gearbeitet.

Gruß KahPee

Edit: Eigentlich ist das was ich will glaube ich eine abgeleitete Klasse. Aber wie muss das dann mit der Methode aussehen? Die kann ich ja nicht einfach überschreiben..