const
  tmpDir = 'c:\temp';
  ToDir = 'e:\backup_solprice' ;
begin
   // comment
   with tmywait.create1('Идет резервное копирование базы данных',SelfScript) do
   try
   try
     forcedirectories(tmpdir);
     createhintw(BackupDatabase(toDir,true,tmpdir));
   finally
     free
   end;
   except
     createhinte(exceptmessage);
   end
end.