Вопрос по TidTCPClient

[hobtorkins]

пишу прогу-клиент.

procedure readstream;
var
   answer:string;
begin
  answer:= Form1.idtcpclnt1.CurrentReadBuffer;
  Form1.mmo1.Lines.Add(answer);
  reaction(answer);
end;

это процедура получения ответа от сервера после отправки определенной команды. если ответ небольшой, то все нормально, а если большой (более 1500 символов примерно), то в мемо выводится не вся информация полученная от сервера, а остаток выдается при следующем вызове этой процедуры, когда надо уже выводить ответ на следующую команду, и получается черти что. возможно это происходит не сразу, возможно где-то что-то накапливается и в какой-то момент чего-то не хватает. подскажите пожалуйста что я не так делаю. может неправильно задаю переменную answer, может нужен другой тип, или может быть надо как-то подчищать буфер, или может вообще все не так. может быть надо через readln, но через ридлн у меня не получилось, т.к. ответ имеет разное кол-во строк, и код, типа приведенного ниже, вызывает зависание программы и вылет с ошибкой при попытке прочитать строку после последней (то есть несуществующую строку):

procedure readstream;
var 
flag:boolean;
answer:string;
begin
   while not flag do
   begin
      try
         Form1.idtcpclnt1.readln(answer)
      exception
         flag:=true;
      end;
   end;
end;

вобщем я уже неделю бьюсь. и так и этак, ничего не выходит. подскажите плиз как же это правильно делается все таки. вообще в идеале конечно через readln. потому что иначе приходится вручную строки разделять. потому что некоторые строки в ответе сервера не нужны. может кто знает как отследить достижение последней строки буфера чтения.