...
uses ScktComp, winsock;

type RRecvData = record
 Socket: TSocket;
 buf: array [0..254] of Char;
 buf_size: Integer;
 recv_len: Integer;
 th_id: Cardinal;
 th_handle: Integer;
 th_stop: Boolean;
 hook: Boolean;
end;
PRecvData = ^RRecvData;

var
 hParalell: TSocket;
 paralell_recv: RRecvData;
 WSA: WSAData;

procedure recv_data(wParam: Pointer);
var
Addr_in: sockaddr_in;
Addr_size: Integer;
begin
 if wParam = nil then
   EndThread(0);
 FillChar(Addr_in,SizeOf(sockaddr_in),0);
 Addr_in.sin_family:= AF_INET;
 Addr_in.sin_addr.s_addr := inet_addr(PChar('0.0.0.0'));
 Addr_in.sin_port := HToNS(0);
 Addr_size:=SizeOf(Addr_in);
 repeat
     PRecvData(wParam)^.recv_len:=recvfrom(PRecvData(wParam)^.Socket, PRecvData(wParam)^.buf, PRecvData(wParam)^.buf_size, 0, Addr_in, Addr_size)
 until (PRecvData(wParam)^.th_stop) OR (PRecvData(wParam)^.recv_len <> SizeOf(PRecvData(wParam)^.buf));
 EndThread(1);
end;

procedure make_paralell;
var
 Addr_in: sockaddr_in;
 Addr_size: Integer;
 bOptAddr: Bool;
begin
 WSAStartup($202, WSA);
//замена SOCK_STREAM на SOCK_RAW - возмоно?
 hParalell:=socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
 if hParalell= SOCKET_ERROR then begin
   Exit;
 end;

 bOptAddr:=True;
 if setsockopt(hParalell, SOL_SOCKET, SO_REUSEADDR, @bOptAddr, SizeOf(Bool)) <> 0 then begin
   Exit;
 end;

 FillChar(Addr_in,SizeOf(sockaddr_in),0);
 Addr_in.sin_family:= AF_INET;
 Addr_in.sin_addr.s_addr := inet_addr(PChar('127.0.0.1'));
 //Порт может меняться, ввел для примера
 Addr_in.sin_port := HToNS(25471);
 Addr_size:=SizeOf(Addr_in);

 if bind(hParalell, Addr_in, Addr_size) = SOCKET_ERROR then begin
   closesocket(hSocket);
   Exit;
 end;

 paralell_recv.Socket:=hParalell;
 paralell_recv.buf_size:=SizeOf(paralell_recv.buf);
 paralell_recv.th_stop:=False;
 paralell_recv.hook:=True;
 sock_recv.th_handle:=BeginThread(nil, 0, @recv_data, PRecvData(@paralell_recv), 0, paralell_recv.th_id);
end;