Código Delphi [-] aitem.action := TAction(FindComponent('Action1'));
aitem.action := TAction(FindComponent('Action1'));