program bs1fsg;

uses
  Vcl.Forms,
  Tocsg.Safe,
  Dbs1fsgMain in 'Dbs1fsgMain.pas' {Dlgbs1fsgMain},
  Tocsg.Fasoo.Global in 'Tocsg.Fasoo.Global.pas',
  ProcessParam in 'ProcessParam.pas',
  Tocsg.Fasoo.Global.Define in 'Tocsg.Fasoo.Global.Define.pas';

{$R *.res}

var
  param: TProcessParam;
begin
  Guard(param, TProcessParam.Create);
  if not param.IsParamOK then
    exit;

  if param.OwnerMtx = '' then
    exit;

  Application.Initialize;
  Application.MainFormOnTaskbar := false;
  Application.ShowMainForm := false;
  Application.CreateForm(TDlgbs1fsgMain, Dlgbs1fsgMain);
  Application.Run;
end.