withsqlSecuritydobeginDatabase:='x:\path_to_database\db.sdb';Password:='p@ssword';ToPassword:='p@ssword_changed';casergSecActions.ItemIndexofC_SET_PASSWORD:SetPassword;C_REMOVE_PASSWORD:RemovePassword;C_CHANGE_PASSWORD:ChangePassword;end;end;…withsqlValidatedobeginDatabase:='x:\path_to_database\db.sdb';Password:='p@ssword';casergValActions.ItemIndexofC_ANALYZE:Analyze;C_CHECKONLY:ifnotCheckOnlythenMemo1.Lines.Add('Database has problems !')elseMemo1.Lines.Add('Database is valid');C_SWEEP:Sweep;end;end;…withsqlBackupdobeginDatabase:='x:\path_to_database\db.sdb';DestDatabase:='x:\path_to_database\db.backup';Password:='p@ssword';DestPassword:='dest_p@ssword';Backup;end;