Cannot make a visible Window modal

[SvenLittkowski]

Hier Auszüge meines Codes, wie er jetzt ist (und Fehler verursacht). "Beta" ist der Name des Windows, was geöffnet werden soll und nichht klappt.

Code:

procedure TAlpha.FormCreate(Sender: TObject);
begin
 ...
 Beta.Visible:=False;
 Randomize;
 SupportMe:=Random(1000);
end;

procedure TAlpha.TimerProgressTimer(Sender: TObject);
begin
 ...
 if Beta.Visible=False then
 begin
//  if SupportMe=1000 then Beta.ShowModal;
  Beta.ShowModal; // Zum Testen
 end;
end;

Code:

program AMC2;

uses
  Forms,
  Box1 in 'Box1.pas' {Alpha},
  Box2 in 'Box2.pas' {Beta};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'FNR Ancient Measures Calculator v2.0';
  Application.CreateForm(TAlpha, Alpha);
  Application.CreateForm(TBeta, Beta);  // Demo-Hinweis, Aufruf zu freiwilligem Support
  Application.Run;
end.