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