Загрузка файла из ФТП-сервера (TIdFTP)

[Pcrepair]

Team Coherence - это контора какая то или кооператив типа

просто нашел Indy_10_FTPClient.zip где то там - в интернете
типа они большие профессионалы и вроде знают что делают

вот у них

procedure TfrmMain.FTPAfterClientLogin(Sender: TObject);
begin
  SetControls;
  FLastDirStack.Clear;

  if cbFTPAddress.ItemIndex > -1 then
    begin
      ChangeFTPDir(Sites[cbFTPAddress.ItemIndex].RootDir);
    end;

  DisplayFtp;
  FRootDir := FTP.RetrieveCurrentDir;
end;

много конечно лишнего, но общая идея в использовании события а не проверки устраивать, был ли коннект, как обычно на форумах в качестве примера рисуют
отсюда и вопрос

[Stilet]

Угу, понятно. Тогда вот мой ответ:

   try
       IdFTP.Connect;
       Тут забираем файл
   except
     on e:Exception do begin
       Error:='Connect Indy Error: '+e.Message;
       Тут выводим Error
     end;
   end;

Может и не на 5б, зато проверено и работает хорошо.