Indy Kommunikation

[Spoon]

und wie macht man genau sowas:

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread); 
var 
msg : String; 

begin 
msg := aThread.Connection.ReadLn; 
end;

mit dem TIdTCPClient ?

Thx Spoon