Здравствуйте Flea, Вы писали:
F>gethostbyaddr посмотри
var
pHE : PHostEnt;
addr : TSockAddr;
begin
pHE := gethostbyaddr( PChar(@addr.sin_addr), SizeOf(TInAddr),AF_INET );

вроде того чтоли