Fórum ip do speedy #384427

Olá, Achei uma solução, caso interesse a alguém. Esta rotina está com o Delphi 7 ok.     function ObterIP : String;
var
  IP : TIdHTTP;
  Temporario : String;
  Endereco   : String;
  X : Integer;
begin
  try
    IP := TIdHTTP.Create(nil);
    with IP do
    begin
      Host := 'checkip.dyndns.org';
      Temporario := Get('checkip.dyndns.org');
      For X := 1 to Length(Temporario) do
        if (Temporario[X] in ['0'..'9']) or (Temporario[X] = '.') then
          Endereco := Endereco + Temporario[X];     end;
    Result := Trim(Endereco);
    IP.Free;
  except
    Result := '';
  end;
end;

Boa jovem! vlw