procedure TForm1.WMCommand(var Message: TWMCommand);
var
FItemCaption: String;
begin
with Message do
if (Ctl = 0) and (Menu <> nil) then
begin
if Menu.FindItem(ItemID, fkcommand) <> nil then
FItemCaption := Menu.FindItem(ItemID, fkcommand).Caption;
end;
inherited;
end;