Timer offline laufen

[chiller4fun1990]

Also so?

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
var
  ini: TIniFile;
  filename: String;
begin
  filename := ExtractFilePath(ParamStr(0)) + 'zeit.ini';
  ini := TIniFile.Create(filename);
 if
StrtoTime(ini.ReadString('Daten','Zielzeit','')) > now then
begin
timer1.Enabled:=true;
  end;