Utiliza un Edit para introducir la dirección, por ejemplo www.grupoalbor.com, un Memo donde indica los intentos y su resultado y un botón.

Hay que recordar incluir la unit WinSock.

 
procedure TForm1.FormCreate(Sender: TObject);
var
   wVersionRequested : WORD;
   wsaData : TWSAData;
begin
   wVersionRequested := MAKEWORD(1,1);
   WSAStartup(wVersionRequested, wsaData);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
   WSACleanup;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
   dir : in_addr;
   p : PHostEnt;
begin
   dir.S_addr := inet_addr(PChar(Edit1.Text));
 
   if dir.S_addr = -1 then
     p := GetHostByName(PChar(Edit1.Text))
   else
     p := GetHostByAddr(@dir,sizeof(in_addr),AF_INET);
   if p <> nil then
     Memo1.Lines.Add(p^.h_Name + ' = ' +
           String(iNet_ntoa(PInAddr(p^.h_addr_list^)^)))
   else
     Memo1.Lines.Add(Edit1.Text + ' no encontrado ');
end;