IdHttp - OnWorkBegin wird nicht ausgelöst

[KahPee]

Hallo,

ich habe eine Variable (global) des Typ TIdHttp erstellt. Immer dann wenn sie Benötigt wird die Klasse erzeugt

Delphi-Quellcode:

var IdHttp: TIdHttp
...
procedure MACHWAS;
begin
   IdHttp:=TIdHttp.Create;
   //Lade hier was runter
   IdHttp.Free;
end;

Mein Problem ist nun folgendes das runterladen klappt. Aber OnWorkbegin wird nicht ausgelesen. OnWorkbegin habe ich in der Unit, in der IdHttp die globale Varibale ist wie folgt deklariert:

Delphi-Quellcode:

//dies nur im implementation teil Nichts in dem Teil davor
procedure IdHTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer); 
begin
 showmessage('test');
end;

Warum wird das Ereignis nicht ausgelöst?

Vielen Dank

KahPee