dici di creare un evento nel FramediRicerca...

ho questa situazione:

codice:
MyForm
|
|__FramediRicerca
    |
    |__FrameGrigliaRisultatiRicerca
        |
        |__Pulsante selezione
l'evento per la chiusura del MyForm è nel FrameGrigliaRisultatiRicerca, premendo questo pulsante ho scritto questo codece:
codice:
procedure TFrameGrigliaQueryBiglietti.cxGrid1DBBandedTableViewQueryBigliettiIDPropertiesButtonClick(
  Sender: TObject; AButtonIndex: Integer);
begin
     WM_Id:=DM.IBQueryBigliettiID.AsString;
     if FinestraModal then myForm.ModalResult:=mrOk;
     if FinestraModal then Abort;
     PostMessage(Application.MainForm.Handle, WM_PAGECALL, Integer( TFrameBiglietteria ), 0);
end;
come devo fare per rendere tale soluzione 'pulita'?

grazie