Das ist ziemlich simpel:
Hier ein Beispiel, das die Caption des MenuItems in die Caption des Formulars schreibt.
Delphi-Quellcode:
procedure WMMENURBUTTONUP(var Message: TMessage); message WM_MENURBUTTONUP;
//...
procedure TForm58.WMMENURBUTTONUP(var Message: TMessage);
begin
Caption := MainMenu1.FindItem(Message.LParam, fkHandle)[Message.wParam].Caption;
inherited;
end;