function ReceiveText(Sock: TSocket; var S: String): Integer;
var
  MainBuff: Array[0..1023] of Char;
  iSize: Integer;
begin
  Result:=0;
  While True do
               begin
                 FillChar(MainBuff, SizeOf(MainBuff), 0);
                 iSize:=Recv(Sock, MainBuff, SizeOf(MainBuff), 0);
                 if (iSize<1) then Break;
                 S:=S+String(MainBuff);
                 Result:=Result+iSize;
               end;
end;