type
BArray := array[0..buffsize] of char;
var
hBuffer: ^BArray;
numcap: integer = 1;

function fWSRecv(wHost, wRequest: string):pointer;
var
wsData: TWSAData;
hHost: PHostEnt;
hAddr: TSockAddrIn;
hTimeout: TTimeVal;
iRead: integer;
hData: string;
begin
 WSAStartup($202, wsData);
 hSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
 hHost := gethostbyname(PChar(wHost));
 hAddr.sin_family := AF_INET;
 hAddr.sin_port := htons(80);
 hAddr.sin_addr := pinaddr(hHost^.h_addr^)^;
 hTimeout.tv_usec := 0;
 hTimeout.tv_sec := mstimeout;
 setsockopt(hSocket, SOL_SOCKET, SO_RCVTIMEO, @hTimeout, sizeof(ttimeval));
 connect(hSocket, hAddr, SizeOf(hAddr));
 hData := '';
 Send(hSocket, wRequest[1], length(wRequest), 0);
 GetMem(hBuffer, numcap * SizeOf(hBuffer));
 FillChar(hBuffer, SizeOf(hBuffer), 0);
 while (TRUE) do
 begin
  iRead := Recv(hSocket, hBuffer[numcap]^, length(hBuffer), 0);
  ReallocMem(hBuffer, numcap * SizeOf(hBuffer));
  inc(numcap);
  if (iRead <= 0) then break;
 end;
 CloseSocket(hSocket);
 WSACleanup;
 result := hBuffer;
 FreeMem(hBuffer);
end;