IdFTP и окно диалога запрос-ответ

procedure TForm1.Button4Click(Sender: TObject);
begin
  try
    IdFTP1.Host := Edit1.Text; //Имя сервера
    IdFTP1.Port := 21; // Порт FTP сервера (по умолчанию 21)
    IdFTP1.Username := Edit2.Text; //Имя пользователя
    IdFTP1.Password := Edit3.Text; //Пароль
    IdFTP1.Connect; //Соединяем
    //...
    //Получение списка файлов с сервера и т.п.
    //...
  finally
    if IdFTP1.Connected then //Если есть соединение с сервером
      begin
        Form1.Caption := 'Подключено'; //Заголовок формы
      end;
    end;
end;

procedure TMain.PutToDebugLog(Operation, S1: String);
var
 S: string;
begin
 while Length(S1)>0 do
  begin
   if Pos(#13, S1)>0
   then
    begin
     S:=Copy(S1, 1, Pos(#13, S1)-1);
     Delete(S1, 1, Pos(#13, S1));
     if S1[1]=#10
     then Delete(S1, 1, 1);
    end
   else S := S1;
   mem_Log.Lines.Add(Operation + S);
  end;
end;
procedure TMain.IdLogEvent1Sent(ASender: TComponent; const AText,
  AData: String);
begin
    PutToDebugLog('-->',AData);
end;
 
procedure TMain.IdLogEvent1Received(ASender: TComponent; const AText,
  AData: String);
begin
  PutToDebugLog('<--',AData);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  IdFTP1.Intercept := IdLogEvent1;
end;
 
procedure TForm2.PutToDebugLog(Operation, S1: String);
Var
  S: String;
begin
  while Length(S1) > 0 do
  begin
    if Pos(#13, S1) > 0 then
    begin
      S := Copy(S1, 1, Pos(#13, S1) - 1);
      Delete(S1, 1, Pos(#13, S1));
      if S1[1] = #10 then
        Delete(S1, 1, 1);
    end
    else
      S := S1;
 
    Memo1.Lines.Add(Operation + S)
  end;
end;
 
procedure TForm2.IdLogEvent1Received(ASender: TComponent;
  const AText, AData: String);
begin
  PutToDebugLog('<<- ', AData);
end;
 
procedure TForm2.IdLogEvent1Sent(ASender: TComponent;
  const AText, AData: String);
begin
  PutToDebugLog('->> ', AData);
end;