Programm ohne Form

[freak4fun]

Delphi-Quellcode:

var
  myTimer: TTimer;
  procedure myOnTimer(Sender: TObject);

...
  
myTimer := TTimer.Create(Self);
  with myTimer do
    begin
      OnTimer := myOnTimer;
      Interval := 1000;
      Activate := True;
    end;

...

procedure TForm1.myOnTimer(Sender: TObject);
begin
  // machwas


  Activate := not TermApp;
  // Irgendwo noch Timer freigeben
end;

Vielleicht hilft das.