1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

unit Unit2;

interface

uses Winsock, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ScktComp;

  function IPv4ToNameThread(const IPv4ddn2: String; j: byte): String;

implementation

var
  WSAData: TWSAData;
  aus: string;
  IPv4ddn : string;

procedure IPv4ToName();
  var
    IPv4: in_addr;
    HostEnt: PHostEnt;
begin
  IPv4.S_addr := inet_addr(PAnsiChar(IPv4ddn));
  HostEnt := gethostbyaddr(@IPv4, SizeOf(IPv4), AF_INET);
  if Assigned(HostEnt) then
    aus := StrPas(Hostent^.h_name)
  else
    aus := '';
end;

function IPv4ToNameThread(const IPv4ddn2: String; j: byte): String;
var threadHandle:THandle;
    test:TThreadFunc;
begin
IPv4ddn := IPv4ddn2;
//    ThreadHandle := BeginThread(nil, 0,@IPv4ToName(buildedIP),nil, 0,id );
    ThreadHandle := createThread(nil, 0, @IPv4ToName,nil, 0, j);
    if ThreadHandle <> 0 then CloseHandle(ThreadHandle);
end;

initialization
  WSAStartup($101, WSAData); // der RC ist hoffentlich <> 0

finalization
  WSACleanup;

end.