[lmikle]

Что-то типа этого:

Код:

FTP.Connect;
I := 0;
While I < FileList.Count Do
Begin
  Try
    SendFile(FilesList[i]);
    Inc(I);
  Except
    FTP.Disconnect;
    FTP.Connect;
  End;
End;