I use an old unit, FastFileCopy to copy files.
The unit have declared a TCallBack
TCallBack = procedure (Position, Size: Integer; var Cancel: Boolean);
To use in this procedure call
procedure FastFileCopy(Const InFileName, OutFileName: String; CallBack: TCallBack);
How is it possible call the FastFileCopy procedure with a callback procedure located inanother object ?