Close in OnActivate eines modalen fensters hat keine Wirkung

[Luckie]

Ich habe folgenden Code:

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
begin
  if bFirstTime then
    Form2.ShowModal;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  bFirstTime := True;
end;

Delphi-Quellcode:

procedure TForm2.FormActivate(Sender: TObject);
var
  Loop: Integer;
begin
  if bFirstTime then
  begin
    for Loop := 0 to 9 do
    begin
      Caption := IntToStr(Loop);
      Sleep(150);
    end;
    Close;
  end;
  bFirstTime := False;
end;


procedure TForm2.FormCreate(Sender: TObject);
begin
  bFirstTime := True;
end;

Ich denke, es ist klar was der Code soll. Nur hat er einen Haken. Das Close in Form2 hat keinerlei Wirkung. Ich frage mich warum und wie man das Fenster automatisch wieder zu bekommt. Ein
ModalResult := mrOK; an dieser Stelle zeigte auch keine Wirkung.