nonvcl timer event (hilfe......)

[Beckman]

code funkt net. compiliert problemlos, event ontimer wird aber nie aufgerufen

Delphi-Quellcode:

program cmdblox; 
 
{$APPTYPE CONSOLE} 
 
uses 
  SysUtils, ExtCtrls; 
 
type 
  TDummy = class 
  public 
    procedure TimerTimer(Sender: TObject); 
  end; 
 
var 
  Dummy: TDummy; 
  Timer: TTimer; 
  Input: String; 
 
//OnTimer 
procedure Tdummy.TimerTimer(Sender: TObject); 
begin 
writeln('Timer Timer!!'); 
end; 
 
begin 
  { TODO -oUser -cConsole Main : Insert code here } 
 
//init 
Dummy := Tdummy.Create; 
 
//timer 
  Timer := TTimer.Create(nil); 
  timer.OnTimer := dummy.TimerTimer; 
  timer.Interval := 5000; 
 
writeln(timer.interval); 
writeln(timer.enabled); 
 
//catching commands 
while (lowercase(input) <> 'quit') do 
  begin 
  readln(input); 
  end; 
 
writeln('Terminating Application...'); 
 
//exit 
Timer.Free; 
dummy.Free; 
end.

weiss wer rat?