Ftp клиент , протокол общения клиента с сервером

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;

procedure TForm2.FormCreate(Sender: TObject);
begin
 
  IdFTP1.Intercept := IdLogEvent1;
  idlogevent1.Active:=true;
  idlogevent1.ReplaceCRLF:=false;
  idLogEvent1.LogTime:=false;
end;

var
  Form2: TForm2;
  IdLogEvent1: TIdLogEvent;

procedure TForm2.FormCreate(Sender: TObject);
begin
  idLogEvent1 := idLogEvent.create(nil); //у меня в IDE косяки, поэтому у конструктора могут быть другие параметры
  IdFTP1.Intercept := IdLogEvent1;
  idlogevent1.Active:=true;
  idlogevent1.ReplaceCRLF:=false;
  idLogEvent1.LogTime:=false;
end;