Hast du es schon so versucht:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
s: string;
begin
repeat
s := IdTCPClient1.ReadLn('', 0, 20);
if s <> '' then
Memo1.Lines.Add(s);
until s = '';
end;
P.S.: Herzlich willkommen in der
DP!