急!请求帮助修改代码! 谢谢!

Question

在program中写的
begin
  Application.Initialize;
  frmSplash := TfrmSplash.Create(Application);
  frmSplash.Show;
  frmSplash.Repaint;
  SetGlobalVar;
  Inis := TIniFile.Create(CurDir + 'TestMis.ini');
  with CommParam do
  begin
    LocalName := Inis.ReadString('系统参数', '单位名称', '');
  end;
  Sleep(1000);
  try
    Application.Title := '先行考试系统';
  Application.CreateForm(TDMMain, DMMain);
 // Application.CreateForm(TForm1, Form1);
  DMMain.ADOConn.GetTableNames(FTablesST);
    if Show_FormLogin then
    begin
       frmSplash.Update;
    end;   
    finally
    frmSplash.Close;
    frmSplash.Free;
  end;
   with frmSplash.adoquery1 do
          begin
            close;
            sql.Clear;
            sql.Add('select fg from id');
            open;
         end;
   if frmSplash.adoquery1.fieldbyname('fg').AsInteger>=1 then
     begin
      Application.CreateForm(TfrmMain, frmMain);
      frmmain.ShowModal;
      Application.Run;
     end
      else
       begin
        Application.CreateForm(TForm1, Form1);
        form1.ShowModal;
        Application.Run;
       end;
  Inis.Free;
end.

Answer 1

有一短发错了!应该是
 DMMain.ADOConn.GetTableNames(FTablesST);
    if Show_FormLogin then
    begin
       frmSplash.Update;
    end;
    with frmSplash.adoquery1 do
          begin
            close;
            sql.Clear;
            sql.Add('select fg from id');
            open;
         end;
   if frmSplash.adoquery1.fieldbyname('fg').AsInteger>=1 then
     begin
      Application.CreateForm(TfrmMain, frmMain);     frmmain.ShowModal;
      Application.Run;
     end
      else
       begin
        Application.CreateForm(TForm1, Form1);
        form1.ShowModal;
        Application.Run;
       end;
    finally
    frmSplash.Close;
    frmSplash.Free;
  end;  Inis.Free;
end.

Answer 2

what u want to do？