onclick string auslesen

[Freiwilderer]

hallo,
ich bin mir fast sicher, dass es vermutlich nich geht,
aber vielleicht ja doch.

gibt es eine Möglichkeit aus einem onclick ereignis einen teil des quelcodes während der laufzeit auszulesen?

im grunde habe ich das:

Delphi-Quellcode:

procedure TfMenu.dxNBIButton1Click(Sender: TObject);
begin 
 ExecuteBaseForm(TfForm1, dxNBIButton1.Tag, 1,
  fmAdminBrowse, fsMDIChild);
end;

und will während der laufzeit "TfForm1" auslesen

ich habe "dxNBIButton1" als objekt, kann also zB dxNBIButton1.onClick schreiben,
wenn es da jetzt noch ne art gettext geben würde, würde ich vermutlich damit zurecht kommen...