Prueba con estas modificaciones:
Código Delphi
[-]
procedure TOrdenes.Generar_PDF;
Var
aPDFFilt : TQRPDFDocumentFilter;
Nom : String;
begin
Filtra_Orden;
aPDFFilt := TQRPDFDocumentFilter.Create('C:\RutaCompleta\' +
IntToStr(IBQ_Select]'Ord_Numero']) + '.pdf');
try
With TOrdenes.Create(Application) Do
try
Try
Imprime_Orden.QuickRep1.ExportToFilter(aPDFFilt)
Except
ShowMessage('Error al crear el archivo');
Raise;
End
finally
Free
end
finally
aPDFFilt.Free
end
end;
Si te fijas, le agregué 2 try...finally al código, esto es para liberar los objetos creados dentro del método...
Saludos...