program Newmanmjx1;

uses
  Forms,
  Controls,
  SysUtils,
  Dialogs,
  Unt1Main in 'Unt1Main.pas' {Frm1Main},
  Unit7 in 'Unit7.pas',
  Untbd2 in 'Untbd2.pas' {Frmbd2},
  Unttest1 in 'Unttest1.pas' {Frmtest1},
  Untchaxun in 'Untchaxun.pas' {FrmChaXun},
  Unit6 in 'Unit6.pas' {Form6},
  Unit4 in 'Unit4.pas' {AboutBox},
  ABOUT in 'ABOUT.pas' {Frmabout};

{$R *.res}

  Var
 /// Hwnd:Thandle;
  Form6Tmp:TForm6;
  time1:TDateTime;

begin
      Form6Tmp:=TForm6.create(Application);
      Form6Tmp.Show;
      Form6Tmp.refresh;
      time1:=now;
      repeat
      until time1+StrtoTime('00:00:1')<=now;   //延時5秒
      Form6Tmp.free;
  Application.Initialize;
  // FrmLogin := TFrmLogin.Create(Application);
//  FrmLogin.ShowModal;
 /// if FrmLogin.ModalResult = mrok then
 //  begin
     Application.Title := '紐邁快速小核磁含油量分析儀－上海紐邁電子科技有限公司';
  Application.CreateForm(TFrm1Main, Frm1Main);
  Application.CreateForm(TFrmbd2, Frmbd2);
  Application.CreateForm(TFrmtest1, Frmtest1);
  Application.CreateForm(TFrmChaXun, FrmChaXun);
  Application.CreateForm(TFrmabout, Frmabout);
  Application.Run;
   //end
 // else
  //  begin
  //   Application.Terminate;
 //   end;
end.