Как прицепить ProgressBar [delphi]
 

Всем доброго времени суток! Столкнулся с такой проблемой надо прицепить ProgressBar

вот к загрузки файла на фтп

Button1Click(Sender: TObject);
begin
idFTP1.Host:='inzu';
idFTP1.Port:=21;
idFTP1.Username:='w';
idFTP1.Password:='98';
idFTP1.Connect;
idFTP1.put('c:\фаил.ва');
idFTP1.Disconnect;

Может кто подскажет или направит на путь истинный? =)

Событие OnWork ни о чем не говорит?