Problema TFileSaveAs no guarda

[jonydread]

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!!