J'utilise un TIdFTP que je créé à la volée :

IdFTP:=TIdFTP.Create(ParentObject);
with IdFTP do begin
...
end;

Je veux mettre du code dans le OnWork pour faire avancer une barre de progression. J'ai donc créer une procédure :

procedure FTPOnWork(Sender:TObject;AWorkMode:TWorkMode; const AWorkCount:integer);
begin
...
end;

J'arrive pas à lier cette procédure à mon objet IdFTP :
OnWork:=FTPOnWork;
Erreur de compil : pointeur de méthode et procédure normale.

et là je suis au bout de mes compétances...