Ich würde
Actions verwenden, da diese sowohl an ein Menüeintrag als auch an einen Button angeklemmt werden können:
Delphi-Quellcode:
procedure runAction(
const ActionName:
String);
var
c : Tcomponent;
begin
c := Application.MainForm.FindComponent(ActionName);
if not Assigned(c)
then
raise Exception.CreateFmt('
Action <%s> not found !', [ActionName]);
(c
as TAction).Execute;
// und Feuer
end;