Timer & Formwechsel

[Störtebeker]

Hallo,

ich habe zwei Formulare. Auf dem einen ist ein Timer mit folgendem Code:

Delphi-Quellcode:

procedure TForm4.Timer1Timer(Sender: TObject);
begin
    if Progressbar2.position > 99 then begin
      progressbar2.position := 0;
      end
  else
    begin;
      progressbar2.position := progressbar2.position + 1;
      form3.Timer2.enabled:=true;
    end;
end;

Jetzt soll die Form nach einer bestimmten Zeit durch die andere Form ersetzt werden. Dazu verwende ich einen Timer auf der zweiten Form mit dem Code:

Delphi-Quellcode:

procedure TForm3.Timer2Timer(Sender: TObject);
begin
Timer2.Interval := 10;
  if ActiveControl <> nil then begin
    ActiveControl.Left := ActiveControl.Left + 1;
    Form3.show;
    Form4.Hide;
    form4.Timer1.Enabled:=false;
end;
end;

Doch das scheint nicht zu funktionieren. Die Progressbar läuft und läuft und läuft. Ein Formwechsel findet allerdings nicht statt.

Schonmal im Voraus vielen Dank.