Telnet + mehrzeilige Ausgabe in Memo

[drschubi]

Hallo
ich benutze folgenden Code um Eingaben an Telnet zu schicken.
Wenn ich eine mehrzeilige Ausgabe von Telnet habe, wie bekomme ich die ins Memo?

Delphi-Quellcode:

procedure TForm1.sndCmdClick(Sender: TObject);
var
  s: String;
  a,i: Integer;
begin
  s := edit1.Text;
  for a := 1 to length(s) do
  begin
    idTelnet1.SendCh(s[a]);
  end;
  idTelnet1.SendCh(#13);

  for i := 1 to idtelnet1.//???Hier finde ich keine funktion
Memo1.Lines.Add(IdTelnet1.ReadLn());
end;

Gruß René