[vitalik1]

Можно двумя способами:
1)

function readstr: string;
var
   s: string;
begin
   s:='';
   while socket.available>0 do
      s:=s+chr(socket.read);
   readstr:=s;
end; 


2)

var
   res: resource;
   line: string;
begin
   res:=socket.get_stream;
   line:=ReadLine(res);
end;