Ошибка при создании бэкап

procedure TForm1.BitBtn5Click(Sender: TObject);
  var
    s: string;
begin
  s := FormatDateTime('ddmmyy', Now) + FormatDateTime('hhmmss', Now);
  Memo1.Clear;
      with IBBackupService1 do
        begin
          ServerName := frmAUTOR.Edit2.Text;
          LoginPrompt := False;
          Params.Clear;
          Params.Add('user_name=' + frmAUTOR.ComboBox1.Text);
          Params.Add('password=' + frmAUTOR.Edit1.Text);
          Verbose := True;
          Attach;
          Active := True;
          try
            DatabaseName := LabeledEdit7.Text;
            BackupFile.Add(LabeledEdit8.Text + '\GISBASE_' + s + '.gbk');
            Options := [IgnoreChecksums, IgnoreLimbo, NoGarbageCollection, NonTransportable];
            ServiceStart;
            while not Eof do Memo1.Lines.Add(GetNextLine);
          finally
            Active := False;
          end;
        end;
        Memo1.Lines.SaveToFile(LabeledEdit8.Text + '\LOGFILE\GISBASE_' + s + '.log');
end;