[[Caral]]

Hola
De momento lo que se me ocurre es hacer esto:

Código Delphi [-]

procedure TfrmMain.Timer1Timer(Sender: TObject);
var
MailIni: TIniFile;
IpNumero: String;
begin
  IP_Publica;
  If IP_Publica = '' then
  begin
  IP_Publica;
  end
  else
  Timer1.Interval:= StrToInt(ESegundos.Text)* 60 * 1000;
  MailIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Mail.ini');
  with MailIni do
  begin
  IpNumero := MailIni.ReadString('Ip','Ip','');
  If IpNumero <> IP_Publica then
  begin
  Memo1.Text:= '';
  MailIni.WriteString('Ip','Ip',IP_Publica);
  Memo1.Text:= IP_Publica;
  bbtnOk.Click;
  end
  else
  //ShowMessage('hola');
end;
end;

Si tenéis alguna idea, me la podéis decir por favor.
Saludos