OnTimer wird nicht ausgelöst

[Hobby-Programmierer]

... vielleicht so?

Delphi-Quellcode:

procedure TAbtfrageClass.MSErmitteln;

  procedure Gauge_refresh(Value: Integer);
  begin
    frmWarnhinweis.frmWarnung.Gauge1.Progress:= frmWarnhinweis.frmWarnung.Gauge1.Progress+ Value;
    frmWarnhinweis.frmWarnung.Refresh;
    Application.ProcessMessages;
  end;
 
begin 
  with FpFIBDataSetAbfrage do 
  begin 
    Close; 
    SelectSQL.Text:= 'SELECT DISTINCT mw_msid FROM mw_tabelle';
    Gauge_refresh(10); 
    GenerateSQLs; // Wie lange braucht der? Wenn lange, dann dahinter ein
    Gauge_refresh(10);
    Open; // Solange der ackert, wird's vermutlich nichts mit dem Aktuallisieren der Gauge.   
    Gauge_refresh(10);
    while not EOF do 
    begin 
        // Die MSId-Bezeichnung aus der Datenbank wird in einer StringList 
        // gespeichert. Diese Bezeichung ist auch gleichzeitig die Spalten- 
        // bezeichnung für die PIVOT-Tabelle. 
      FMSListe.add(FieldByName('mw_msid').AsString); 
      next;        
      Gauge_refresh(5); // anpassen je nach Anzahl der Bezeichnungen
      end;  
    end; 
  end; 
end;

[edit] und natürlich muss der Timer weg