wenn online dann senden!!

[Luke23]

Hallo!!

ich habe mir ein Programm gebaut was an einen bekannten die ip meines rechners schickt! wenn jetzt aber mein router sich neu einwählt ist das ja auch eine andere ip als vorher kann ich oder wie kann ich das machen das mein programm selber überprüft ob sich die ip meines rechners verändert hat?? wie könnte ich das machen das mein Programm nur die ip nochmal an ihn schickt wenn sie sich verändert hat?? hätte da vieleicht einer einen tip??

Delphi-Quellcode:

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text  := IdHTTP1.Get('http://checkip.dyndns.org');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ICQClient1.ICQServer := 'login.icq.com';
  ICQClient1.ICQPort := ****;
  ICQClient1.UIN:=********;
  ICQClient1.Password:='*****';
  ICQClient1.Login;

end;

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
begin
 ShowMessage(Msg + ' von: ' + UIN);
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
  ICQClient1.SendMessage(******,Edit1.Text);
end;

end.

ja na es würde ja auch über dyndns.org gehen aber ich wollte das halt mal so testen !!
hätte da vieleicht einer einen tip??

Mfg Luke23

Ps: oder gäbe es da noch ne bessere sache?? ausser dyndns.org oder sowas

[edit=r_kerber]Delphi-Tags einegfügt. Mfg, r_kerber[/edit]