Problema TFileSaveAs no guarda

[jonydread]

Amigos saludos,
tengo un problemilla sin resolver tengo un actionmanager donde agrege el TFileSaveAs lo que pasa es que no guarda el archivo o sea lo guarda al parecer no lo se aparece en los archivos recientes solamente
en eventos esta
Dialog - FileSaveAs1.SaveDialog
en propiedades
Dialog- FileSaveAs1.SaveDialog
se expande para dar opciones filter,defaultext, etc...
tengo todo eso configurado pero no logro saber porque no lo guarda
en el evento OnAccept verifico la ruta donde se guarda y aparece bien
este es el codigo del form

Código Delphi [-]
unit QRpreview;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QRPrntr,quickrpt, ToolWin, ActnMan, ActnCtrls,XPActnCtrls, XPStyleActnCtrls,
  StdActns, ActnList, ImgList, ComCtrls, StdCtrls, Buttons, ExtCtrls,
  QRExport, QRPDFFilt;

type
  TPreview = class(TForm)
    QRPreview1: TQRPreview;
    ActionManager1: TActionManager;
    ImageList1: TImageList;
    FileSaveAs1: TFileSaveAs;
    FilePrintSetup1: TFilePrintSetup;
    ActionToolBar1: TActionToolBar;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FileSaveAs1Accept(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Preview: TPreview;

implementation

uses main, reporte;

{$R *.dfm}


procedure TPreview.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Mainform.Enabled := true;
end;

procedure TPreview.FileSaveAs1Accept(Sender: TObject);
begin
showmessage(FileSaveAs1.Dialog.FileName);
end;

end.