OnTimer wird nicht ausgelöst

[Chemiker]

Hallo,

Delphi-Quellcode:

procedure TfrmExcelDateiExportieren.btPivotTabelleZeigenClick(Sender: TObject);
begin
  Timer1.Enabled:= TRUE;
  frmWarnhinweis.frmWarnung.Show;
  frmWarnhinweis.frmWarnung.Refresh;   
  FAbfrageClass.MSId:= '%';
  FAbfrageClass.MSErmitteln;
  Timer1.Enabled:= FALSE;
  frmWarnhinweis.frmWarnung.close;  
end;

Mit dieser Procedure wird ein Form mit einer Gauge dargestellt. Gauge .Progress soll dann über einen Timer weitergestellt werden.

Delphi-Quellcode:

procedure TfrmExcelDateiExportieren.Timer1Timer(Sender: TObject);
begin
  frmWarnhinweis.frmWarnung.Gauge1.Progress:= frmWarnhinweis.frmWarnung.Gauge1.Progress+10;
  frmWarnhinweis.frmWarnung.Refresh;
end;

Leider wird das OnTimer-Ereignis aber nicht ausgelöst.

Wie kann man das ändern?

Bis bald Chemiker