[Nemiroff]

Здравствуйте, никак не могу решить вопрос:
По таймеру (таймер работает с определенным интервалом) выполняется GET запрос к сайту:

Код:

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;
label1.Caption := ip;
end;

в данной процедуре определяется внешний IP адрес моего роутера, при обрыве связи IP меняется, как мне определить что IP изменился и к примеру поместить об этом информацию в Memo?

[ART]

сравнить новое значение ip со старым

[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;

[Nemiroff]

Спасибо! То что надо!