关于跳转的菜鸟问题

Question

procedure TForm1.FormActivate(Sender: TObject);
begin
  with TForm.Create(Self) do try
    ShowModal;
    Randomize;
    if Random(2) = 0 then Self.Close;
  finally
    Free;
  end;
end;

Answer 1

program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin
  with TForm.Create(nil) do try
    ShowModal;
    Randomize;
    if Random(2) = 0 then Exit;
  finally
    Free;
  end;  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.