ProgressBar mit 2 Timern > Großes Problem

[Honigdachs]

Hallo,

ich hab mal wieder ein Problem. Ich versuche, eine Progressbar mit zwei Timern zu verknüpfen. Das Formular soll mithilfe von Timer1 5sec lang aufgerufen werden, in der Zwischenzeit soll mittels Timer2 alle 0,5sec die Progress-Position um +4 erhöht werden. Nach Ablauf von Timer2 soll dieser erneut gestartet werden, um den Progress fortzuführen. Nach Ablauf der 5sec soll das Formular wieder geschlossen werden. Ich kam auf folgendes:

Delphi-Quellcode:

procedure TForm3.FormCreate(Sender: TObject);
var
  timer1, timer2 : TTimer;
begin
  timer1.enabled:= true;
  timer2.enabled:= true;
  if Timer2.enabled = true then
    begin
      progressbar1.position:=progressbar1.position+4;
    end;
  if Timer2.enabled = false then
    Timer2.enabled := true;
  if Timer1.Enabled = false then
    close;
    Form1.show;  
end;

Vielleicht könnt ihr mir sagen, wo der Fehler liegt.

MfG

Honigdachs