Hilfe bei Readln von TIdTCPClient

[WMeinecke]

So, hier nun der Quelltext

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
m_oClientSocket.Disconnect;
END;

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