program main;

uses
  Forms,
  Controls,
  Unit1 in 'Unit1.pas' {MainForm},
  Unit2 in 'Unit2.pas' {splashform};

{$R *.res}

begin
Application.Initialize;
  SplashForm :=TSplashForm.Create(Application);
  SplashForm.ShowModal;
  if (SplashForm.ModalResult = mrOK) then
  begin
    Application.Title := '測試Splash窗體';
    Application.CreateForm(TMainForm, MainForm);
  SplashForm.Hide;
    SplashForm.Release;
    Application.Run;
  end;

end.