Hier ist ein Tutorial für Beginner, wie man seine eigene IP-Nummer herausfinden kann,
ohne Routerabfrage etc. !

Dazu wird lediglich ein Formular mit Editfeld und Button benötigt - sowie ein IDHttp-Objekt
aus der Indy9/10 Komponentenbibliothek.

Der ganze Programmablauf findet im TButton EventHandler statt (OnButtonClick). . . .

• HTML-Code von http://checkip.dyndns.org in einen AnsiString kopieren.
  IP-Nummer aus dem HTML-Code parsen.
  IP-Nummer in das TEdit Feld schreiben.
  
  Programmcode:
  
  void __fastcall TForm1::Button1Click(TObject *Sender)
  {
  int a,b;
  AnsiString IP,html;
  
  html = IdHTTP1->Get("http://checkip.dyndns.org");
  
  a = html.Pos("Current IP Address:");
  b = html.Pos("</body>");
  
  IP = html.SubString(a+19,b-(a+19));
  Edit1->Text = IP;
  }

Beachtet dass das laufende Programm eine Internetverbindung benötigt. Das Executable
könnt Ihr hier downloaden: http://home.arcor.de/elmar-baumann/tools.htm