program Mdiapp;

uses
  Forms,
  Main in 'MAIN.PAS' {MainForm},
  child_lab in 'child_lab.pas' {frm_YQ_Lab},
  Chind_Address in 'Chind_Address.pas' {frm_Address},
  Child_Code in 'Child_Code.pas' {frm_Code},
  Child_Borrow in 'Child_Borrow.pas' {frm_Borrow},
  prt_lab in 'prt_lab.pas' {frm_Prt_Lab},
  prt_Letter in 'prt_Letter.pas' {frm_prt_letter},
  About in 'About.pas' {frm_About},
  Child_Sort in 'Child_Sort.pas' {frm_Sort},
  Child_Chart in 'Child_Chart.pas' {frm_Chart},
  Child_Chart1 in 'Child_Chart1.pas' {frm_Chart1},
  Child_Chart2 in 'Child_Chart2.pas' {frm_Chart2},
  SplashForm in 'SplashForm.pas' {Splash};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := '儀器管理系統 1.0';
   { 創建封面 }
  Splash := TSplash.Create(Application);
  Splash.Show;   // 顯示封面
  Splash.Update; // 強制更新封面
  { 下面通過定時器來延時}
  while Splash.Timer1.Enabled do
    Application.ProcessMessages;   //讓程序循環不斷處理消息，直到定時器被禁止為止
  Application.CreateForm(TMainForm, MainForm);
   {主窗口顯示出來后，隱藏并釋放封面}
  Splash.Hide;
  Splash.Free;
  Application.Run;
end.