Falls du es dir nicht schon selbst beantwortet hast, ja auch der umgekehrte Weg ist möglich
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var ip: TIpSocket;
begin
ip := TIpSocket.Create(self);
try
Edit4.Text :=
ip.LookupHostName(Edit3.Text);
finally
ip.free();
end;
end;