// резервное копирование. Рассчитано на то, что команде в командной строке будет указано
// -script имяэтогоскрипта

const OutDir = 'c:\backup';

begin
  with TMyWait.create('Идет резервное копирование базы данных. Ждите.') do
  try
    BackupDatabase(OutDir);
    Application.Terminate; // выйти из программы
  finally
    free
  end;

end.
