Delph最简单i获取*IP

uses idhttp;

var

  idhttp:Tidhttp;
begin
    idhttp:=TIdHTTP.Create(nil);
    ShowMessage(idhttp.Get('http://www.3322.org/dyndns/getip'));

   idhttp.Free;

end;