var
i:integer=3;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TDM, DM);
Application.CreateForm(TFm_main, Fm_main);
Fm_Login:=TFm_Login.Create(Application);
if Fm_Login.ShowModal <>2 then
begin
Fm_splash:=TFm_splash.Create(application);
Fm_splash.Show;
Fm_splash.Refresh;
Application.CreateForm(TFm_Store_In, Fm_Store_In);
fm_splash.PB_Status.Position:=fm_splash.PB_Status.Position+i; //1
Application.CreateForm(TFM_PowerManage, FM_PowerManage);
fm_splash.PB_Status.Position:=fm_splash.PB_Status.Position+i; //2
Application.CreateForm(TFM_ChangePassword, FM_ChangePassword);
fm_splash.PB_Status.Position:=fm_splash.PB_Status.Position+i; //3
Application.CreateForm(TFM_OperatorLog, FM_OperatorLog);
fm_splash.Close;
fm_splash.free;
Application.Run;
end
else
begin
Fm_Login.Free;
Fm_main.Free;
DM.Free;
Application.Terminate;
end;