Delphi - Como verificar o IP do computador através do site http://checkip.dyndns.org/

Abra o Delphi coloque em seu formulário um Button, um Edit e um componente  da palheta Indy Clients chamado Idhttp. No evento Onclick do Button insira o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);

var

  S: String;

begin

 try

  // Solicita ao site.

  S := IdHttp1.Get('http://checkip.dyndns.org/');

  S := Copy(S,77,13);

  // Mostra o IP em um Edit.

  Edit1.Text := S;

 Except

  ShowMessage('A internet está fora do ar!');

 end;

end;

end;