Hallo Pif,
fIdHTTP.OnWork := InternalOnWork;
bedeuted, dass beim das Ereignis OnWork von der Methode
InternalOnWork aufgefangen wird.
Die Parameter des Types von OnWork und die Parameter
der Methode von InternalOnWork müssen identisch sein.
Das ist nun vielleicht durch Versionsunterschiede
nicht mehr passend.
Die Methode
procedure InternalOnWork (Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
müsste also angepasst werden.
Ich habe die
Indy-Komponenten nicht installiert, deswegen
kann ich ab hier nicht weiterhelfen. Sorry.
Gruß
Pfoto