Hilfe bei Readln von TIdTCPClient

[WMeinecke]

So, hier nun der Quelltext

Delphi-Quellcode:

  TRY
      FullResponse := '';
      if not m_oClientSocket.Connected then
      begin
      m_oClientSocket.Connect();
      end;

      m_oClientSocket.WriteLn(Request);
      REPEAT

        Response := m_oClientSocket.ReadLn(#$A);
        IF Response <> '' THEN
          BEGIN
            FullResponse := FullResponse + Response + #$A;
          if Response='bla' then break;
          END;
      UNTIL Response = '';
    EXCEPT
      ON E: Exception DO
        BEGIN
          Showmessage(E.Message);
        END;
    END;
  FINALLY
[b]    m_oClientSocket.Disconnect;[/b]
 END;

Wie gesagt. Ich hätte es ganz gerne ohne das Disconnect.