add the button at run time

guzial

in Delphi i make:

var
  Page : TfrxDialogPage;
  Button: TfrxButtonControl;
begin
  Page := TfrxDialogPage.Create(aReport);
  Page.CreateUniqueName;
  Page.Width := 200;
  Page.Height := 200;
  Page.Position := poScreenCenter;
  Button := TfrxButtonControl.Create(Page);
  Button.CreateUniqueName;
  Button.Caption := 'OK';
  Button.ModalResult := mrOk;
  Button.SetBounds(60, 140, 75, 25);
  aReport.ShowReport;
end;

question is:
how to add to button procedure for some event for example onClick