Событие нажатия кнопок "Печать" и "Закрыть"

gabi

Добрый день, как программно отслеживать событие нажатия кнопок  "Печать" и "Закрыть"?

gpi

uses frxClass, frxPreview, frxPreviewPages, frxRes;

type

 TForm1 = class(TForm)

  frxReport1: TfrxReport;

  procedure frxReport1Preview(Sender: TObject);

  procedure NewOnClick(Sender: TObject);

 end;

var Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.frxReport1Preview(Sender: TObject);

begin

 if frxReport1.PreviewForm is TfrxPreviewForm then

    TfrxPreviewForm(frxReport1.PreviewForm).PrintB.OnClick := NewOnClick;

end;

procedure TForm1.NewOnClick(Sender: TObject);

begin

 if frxReport1.Engine.Running then Exit;

 ShowMessage('Print button pressed');

end;

end.