[ART]

Код:

var
 oldip: string;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
try
 http:=TIdHttp.Create(nil);
 ip := http.Get(URL);
 http.Free;
except
 on E: EIdSocketError do
 begin
  ip := 'Соединения нет!'
 end;
end;
 if ip <> oldip then begin
  showmessage('ip изменился');
  oldip := ip;
 end;
 label1.Caption := ip;
end;