هل من الممكن إغلاق نافذة تسجيل الدخول دون إغلاق المشروع ؟

PHP كود :

procedure TLoginFrm.BtnLoginClick(Sender: TObject);
var
Uid :string;
Pass :string;
SqlStr :string;
begin
Uid:=Txt_UserName.Text;
Pass:=Txt_Password.Text;
SqlStr:='Select * From ALL_USERS  Where USER_NAME =:USER_NAME And USER_PASS =:USER_PASS';
DBCon.Connected:=True;

DBQuery.SQL.Add(SqlStr);
DBQuery.Parameters.ParamByName('USER_NAME').Value:=Uid;
DBQuery.Parameters.ParamByName('USER_PASS').Value:=Pass;
DBQuery.Open;
if DBQuery.RecordCount>0 then
begin
  MainForm.Show;
  Close;
end
else
begin
  ShowMessage('الرجاء التأكد من اسم المستخدم و كلمة المرور')
end;
end;

كود :

procedure TFMain.FormCloseQuery(Sender: TObject; var CanClose: boolean);

var

   user, pass, database, dir, Target_File_Name :String;

   Backup_Counter:Integer;

begin

     FConfirm.TMessage.Caption:= Sys_User_Name + '.. ' + 'هل تريد تسجيل الخروج من النظام؟';

     FConfirm.ShowModal;



     if FConfirm.Confirmation_ID = 0 then

     begin

          CanClose:= false;

          exit;

     end

     else

     begin



       begin

            user :=conn.UserName;

            pass :=conn.Password;

            database:=conn.DatabaseName;

            dir := application.Location;





            // get counter

            OpQuery.close;

            OpQuery.DataBase:=fmain.conn;

            OpQuery.Close;

            OpQuery.SQL.Text:='SELECT Backup_Counter FROM backup_counter WHERE ID=1';

            OpQuery.Open;



            opDataSource.DataSet:=OpQuery;



            // 2- invoice number +1

            Backup_Counter:=opDataSource.DataSet.FieldByName('Backup_Counter').AsInteger + 1;



            Target_File_Name:=application.Location + 'dumps\'  + inttostr(Backup_Counter) +'.sql';



            // update counter

            OpQuery.Close;

            OpQuery.SQL.Text:='UPDATE backup_counter SET Backup_Counter=:Backup_Counter WHERE ID=1';

            OpQuery.ParamByName('Backup_Counter').AsInteger:=Backup_Counter;

            OpQuery.ExecSQL;

            Trans.Commit;



            //showmessage(Target_File_Name);



            if pass<>'' then pass:=' --password='+pass;

            SetEnvironmentVariable(PChar('Path'),PChar(Dir));

            ShellExecute(Handle, 'open', PChar('cmd.exe'),

            pchar('/c mysqldump --user='+user+pass+ ' ' +database+' >"'+Target_File_Name+'"'),nil,0);



       conn.Close(true);

       Application.Terminate;

     end;



     end;

end;