Problem mit OnWork

[Delphi Code Anfänger]

Habe das jetzt so geändert:

TOnWorkEvent = procedure(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer) of object;