1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TformMain.tcpsTestExecute(AContext: TIdContext);
var
  s: string;
begin

try

  with AContext.Connection do begin
    s := IOHandler.ReadLn; //HIER BLEIBT ER STEHEN : Danach Connection Closed Gracefully.
    IOHandler.WriteLn('Hello ' + s);
    
  end;

except
  on E: Exception do
    Console.write(e.message);

end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

uses
  IdTCPClient,
  SysUtils;

begin
  with TIdTCPClient.Create do try
    Host := '127.0.0.2';
    Port := 10001;
    Connect;
    try
      WriteLn('Connected.');
      WriteLn(IOHandler.ReadLn);
      IOHandler.WriteLn('Quit'); 
      WriteLn(IOHandler.ReadLn);
    finally
      Disconnect;
    end;
    WriteLn('Disconnected.');
  finally Free; end;
  WriteLn('Press Enter');
  ReadLn;
end.