ReadLn und ReadBuffer

[endeffects]

ich hab das ganze nu nochmal bissel abgeändert:

Code:

procedure TForm.Button1Click(Sender: TObject); 
var cb: string; 
begin 
  with IdTCPClient do 
    begin 
      try 
        Write(request'); 
        if IOHandler.Readable(1000) then
        begin
          ReadBuffer(CB, SizeOf(CB));
           if SizeOf(CB) > 0 then
           begin
            Memo2.Lines.Add(CB);
           end;
         end;

erzeugt allerdings eine zugriffsverletzung die ich nicht
nachvollziehen kann