Guardar Archivo

[[BlueSteel]]

Quiero guardarlo en formato PDF .... lo cual hasta el momento me funciona muy bien.... (Estoy traspasando un Informe de QReport a PDF.... y todo bien...)

El código que utilizo es el siguiente

 
procedure TOrdenes.Generar_PDF;
Var
aPDFFilt : TQRPDFDocumentFilter;
Nom : String;
begin
	 Filtra_Orden;
	 Guarda_Pdf.Title := 'Orden de Compra - Club Deportivo Huachipato';
	 Guarda_Pdf.FileName := Concat(IntToStr(IBQ_Select['Ord_Numero']),'.pdf');
	 If Guarda_Pdf.Execute Then
	 Begin
		  ChDir(ExtractFilePath(Guarda_Pdf.Filename));
		  Nom := Guarda_Pdf.FileName;
		  aPDFFilt := TQRPDFDocumentFilter.Create(Nom);
		  With TOrdenes.Create(Application) Do
		  Try
			 Imprime_Orden.QuickRep1.ExportToFilter( aPDFFilt);
		  Except
			  ShowMessage('Error al crear el archivo');
			  Raise;
		  End;
		  aPDFFilt.Free;
	 End
end;

mi consulta es saber como guardo el archivo sin utilizar el SaveDialog....

Además, otra consulta, como puedo hacer para verificar si el Archivo ya Existe ?... para que no lo sobreescriba.... y se evite un paso....