Evitar Borrado de Carpetas

[lKinGl]

Muchas gracias caro

[lKinGl]

Mi Código Final me quedó así

Código Delphi [-]
    if not DirectoryExists('Reportes\Recepciones\') then
      begin
        CreateDir('Reportes\Recepciones');
        form16.QuickRep1.Prepare;
        form16.QuickRep1.QRPrinter.Save('Reportes\Recepciones\'+SpinEdit1.Text+'_'+ComboBox2.Text+'_'+ComboB  ox4.Text+'_'+ComboBox1.Text+'.qrp');
      end
      else
      begin
        form16.QuickRep1.Prepare;
        form16.QuickRep1.QRPrinter.Save('Reportes\Recepciones\'+SpinEdit1.Text+'_'+ComboBox2.Text+'_'+ComboB  ox4.Text+'_'+ComboBox1.Text+'.qrp');
      end;

gracias por tu ayuda caro