[Ferra]

Насколько ты объяснил, ответы такие:

Как узнать IP машины по имени

Код:

uses
  WinSock;

const
  WINSOCK_VERSION = $0101;

function GetIPAddress(name: string): string;
var
  WSAData: TWSAData;
  p: PHostEnt;
begin
  WSAStartup(WINSOCK_VERSION, WSAData);
  p := GetHostByName(PChar(name));
  Result := inet_ntoa(PInAddr(p.h_addr_list^)^);
  WSACleanup;
end;

Определить, занят ли порт сокета

Код:

var SockAddrIn : TSockAddrIn;
    FSocket    : TSocket;

  ...

  If  bind(FSocket, SockAddrIn, SizeOf(SockAddrIn)) <> 0 Then
  begin
    обрабатываем WSAGetLastError
  end;

а вообще можно и через пинг.
Чтобы узнать IP сервера www.google.ru (http://www.google.ru), пишешь в командной строке:
ping www.google.ru (http://www.google.ru/)