pare che funzioni, invece no

//si connette al server ftp
idftp1.Connect();
//se è connesso scrive fabio e disabilita button
if idftp1.Connected=True then
begin
path:='c:\fabio\';
button1.Caption := 'Connesso';
button1.Enabled := false;
button2.Visible := true;
//prepara tutto per l'ftp
idftp1.TransferType:=ftascii;
idftp1.ChangeDir('upload');
//scarica e cancella il file
FileAttrs := 0;
repeat
begin
findfirst(path, FileAttrs, sr);
idftp1.Put(sr.name, sr.name, false);
deletefile(path+sr.Name);
end;
until FindNext(sr) <> 0;
FindClose(sr);

non fa ne upload ne cancella il file...perché?
Dopo due anni che non tocco delphi mi pare di ricominciare daccapo.
Cosa sbaglio?