D2007, Indy10: Wie kann ich ReadFromStack ersetzen?

[winx]

Hallo,

ich muß eine Software überarbeiten, die ReadFromStack() eingesetzt hat. Nun muß ich die SW
in Delphi2007 einbinden, nur gibt es da die Funktion ReadFromStack() nicht mehr.

Delphi-Quellcode:

with IdTCPMain do begin
    while (not finished) do begin

      i:=  ReadFromStack(false,timeout,false);
      if i > 0 then begin
        answer:=answer+Readstring(i);
      end
      else begin
        answer:='';
        finished:=true;
      end;
      i:=pos('[',answer);
      if i=0 then
        answer:=''
      else if i>1 then
        delete(answer,1,i-1);
      i:=pos(']',answer);
      if i<length(answer) then
        delete(answer,i+1,length(answer));
      if (pos('[',answer)=1) and (pos(']',answer)=length(answer)) then finished :=true;
    end;
  end;

Wie kann ich nun die ersten Zeilen "richtig" ersetzen:

Delphi-Quellcode:

i:=  ReadFromStack(false,timeout,false);
      if i > 0 then begin
        answer:=answer+Readstring(i);
      end

Danke!!!!!

gruß,
winx