Timer & Formwechsel

[blawen]

Dein Problem liegt bei der Zeile
if ActiveControl <> nil then begin Ohne genauere Hintergründe zu kennen, schlage ich z.B folgende Änderungen vor:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Progressbar1.Position > 99
    then begin
      progressbar1.position := 0;
      Timer1.enabled := False;
      Form2.Timer1.enabled := True;
    end
  else
    progressbar1.position := progressbar1.position + 10;
end;

Delphi-Quellcode:

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  Form2.show;
  Form1.Hide;
  Form1.Timer1.Enabled := False;
end;