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
end;
end;
Si tenéis alguna idea, me la podéis decir por favor.
Saludos