FADOQuery.Close;
FADOQuery.SQL.Clear;
FADOQuery.SQL.Add
('exec sp_dboption ''' + DBName +
''', ''trunc. log on chkpt.'', ''True''')
FADOQuery.Close;
FADOQuery.SQL.Clear;
FADOQuery.SQL.Add
('BACKUP LOG ' + DBName +
' WITH TRUNCATE_ONLY DBCC SHRINKFILE (' + FLdfName + ', 10)');