Huhu Pif,
aaah, ich hatte im Beitrag davor, noch 'ne geänderte Version gepostet, aber die vergiß mal.
okay:
Die Zeile heißt
procedure InternalOnWork (Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
das
const
vor dem aWorkCount muß raus, und unten auch nochmal.
Jetzt sollte es gehen ...
Hoffnungsvolle Grüße
Marco