du könntest ein TClientSocket verwenden, Address auf die zu überprüfende
IP setzen und dann Active auf true setzen. Das ganze in einem try-except-end block verpackt sieht das ganze dann so aus:
Delphi-Quellcode:
function IPExist(
IP:
string): boolean;
begin
Client.Address :=
IP;
try
Client.Open
Result := true
except
Result := false;
end;
end;