Prozedur erst bei bestimmten Wert einer Variable fortsetzen

[meg91]

Hi
im Titel steht eigentlich schon das Wichtigste, aber hier nochmal mein konkretes Problem
ich möchte, dass wenn man das Programm schließst, erst ein Timer gestartet wird, welche ein Integer runterzählt
und erst wenn dieser einen bestimmten Wert hat soll das Programm zu gehn

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  canclose := false;

  CheckBox4.Checked := true;
  TrackBar5.Position := 1;

  dimLEDs(0,0,0);

  //hier soll gewartet werden bis der Integer 0 ist

  CanClose := true;
  Form1.Close;
end;

die einzige Möglichkeit, die mir eingefallen ist einfach noch nen Timer zu starten und dann mit dem immer wieder zu schauen ob der Integer schon 0 ist, wobei ich das nicht ganz so toll finde, da in meinem Programm schon 4 Timer von haus aus mitlaufen

Gibt es da nicht noch eine schönere Lösung?

Gruß
Markus

[RWarnecke]

Probiere doch mal eine while-Schleife oder eine repeat untilschleife, womit Du den Wert von Deinem Timer abfragst.

[meg91]

Super thx
hab ich gar nicht dran gedacht

Delphi-Quellcode:

  while (TrackBar1.Position <> 0) or (TrackBar2.Position <> 0) or (TrackBar3.Position <> 0) do
  begin
    Sleep(1);
    Application.ProcessMessages;
  end;

funzt perfekt