exelente mi solucion estaba en donde colocar el codigo
esto lo tenia en ontypechangue y era en ocaccept me oriente tambien por este hilo
http://www.clubdelphi.com/foros/showthread.php?t=22130
Solucion
Código Delphi
[-]procedure TPreview.FileSaveAs1Accept(Sender: TObject);
var
FName: string;
begin
FName:= ExtractFileName(FileSaveAs1.Dialog.FileName);
Case FileSaveAs1.Dialog.FilterIndex of
1: reporteform.QuickRep1.ExportToFilter(TQRPDFDocumentFilter.Create(FName));
2: reporteform.QuickRep1.ExportToFilter(TQRXLSFilter.Create(FName));
3: reporteform.QuickRep1.ExportToFilter(TQRAsciiExportFilter.Create(FName));
4: reporteform.QuickRep1.ExportToFilter(TQRRTFExportFilter.Create(FName));
end;
showmessage(FileSaveAs1.Dialog.FileName);
end;
saludos y gracias!!