function TForm1.TCP_Connect(msg: string): boolean;
begin
 result:=false;

 idTcp.Host:=edtHost.Text;
 idTCP.Port:=StrToInt(edtPort.Text);

 try
   idTCP.Connect;
 finally
   try
     idTCP.GetResponse(200);

     idTCP.SendCmd('Preved '+ msg,201);
     idTCP.IOHandler.Capture(memo1.Lines);

     idTCP.SendCmd('Quit', 202);
     result:=true;
   finally
     idTCP.Disconnect;
   end;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if not TCP_Connect('mycommand') then
   ShowMessage('Bad connection!');
end;

procedure TfrmMain.btnConnectClick(Sender: TObject);
begin
 tcpServer.DefaultPort:=StrToInt(edtPort.Text);
 tcpServer.Active:=True;
end;

procedure TfrmMain.tcpServerConnect(AContext: TIdContext);
begin
 AContext.Connection.IOHandler.WriteLn('200 My Server ready.');
end;

procedure TfrmMain.tcpServerExecute(AContext: TIdContext);
var
 LCmd: string;
 LLine: string;
begin
 try
   LLine := AContext.Connection.IOHandler.ReadLn;
   LCmd := Fetch(LLine);

   if AnsiSameText(LCmd, 'QUIT') then begin
     AContext.Connection.IOHandler.WriteLn('202-Bye!');
     AContext.Connection.Disconnect;
   end
   else if AnsiSameText(LCmd, 'PREVED') then begin
     AContext.Connection.IOHandler.WriteLn('Medved.');
     Memo1.Lines.Insert(0,LLine);
   end
   else begin
     AContext.Connection.IOHandler.WriteLn('400 Unknown Command');
   end;
 finally

 end;
end;

procedure TfrmMain.tcpServerExecute(AThread: TIdPeerThread);
var
 LCmd: string;
 LLine: string;
begin
 try
   LLine := AThread.Connection.ReadLn;
   LCmd := Fetch(LLine);

   if AnsiSameText(LCmd, 'QUIT') then begin
     AThread.Connection.WriteLn('202  Bye!');
     AThread.Connection.Disconnect;
   end
   else if AnsiSameText(LCmd, 'PREVED') then begin
     AThread.Connection.WriteLn('201  Medved.');//<<<< Добавлено 201 (responce code)
     AThread.Connection.WriteLn('Ya Medved.');
     AThread.Connection.WriteLn('.');//<<<< висяк изза этого idTCP.Capture ждет строку из одной точки
     Memo1.Lines.Insert(0,LLine);
   end
   else begin
     AThread.Connection.WriteLn('400  Unknown Command');
   end;
 finally

 end;
end;