Delphi - Obtener el nombre del host a través de la IP

Saludos.
Me gustaría hacer un programa que me dijera el nombre del host de una dirección IP concreta. ¿Cómo puedo hacer esto?

Muchas gracias de antemano y hasta pronto

Para obtener el nombre del host correspondiente a una dirección IP puedes usar la siguiente función:

uses WinSock;

function GetHostByAddr(IP: string): string;
var
WSData: TWSAData;
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
begin
Result := '';
if WSAStartup($101, WSData) = 0 then begin
SockAddrIn.sin_addr.S_addr := inet_addr(PChar(IP));
HostEnt := WinSock.GetHostByAddr(@SockAddrIn.sin_addr.S_addr,
SizeOf(SockAddrIn.sin_addr.S_addr), AF_INET);
if HostEnt <> nil then
Result := StrPas(Hostent^.h_name);
WSACleanup;
end;
end;

Llamada de ejemplo:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetHostByAddr('207.105.75.31'));
end;

Copyright (c) 2002 Ernesto D'Spirito
http://www.latiumsoftware.com/es