procedure TForm1.Button5Click(Sender: TObject);
var
 NewItem: TMenuItem;
 Item2: TMenuItem;
 Menu: TMainMenu;
begin
 Menu := TMainMenu.Create(Self);
 NewItem := TMenuItem.Create(Self);
 Item2 := TMenuItem.Create(Self);
 
 NewItem.Caption := 'menu';
 Item2.Caption := 'sous menu';
 Item2.OnClick := SMenuClick;
 
 NewItem.Add(Item2);
 Menu.Items.Add(NewItem);
end;
 
procedure TForm1.SMenuClick(Sender: TObject);
begin
 ShowMessage('Click'; <------Comment ici avoir le nom de l'item qui a été cliké?
end;

if Sender is TMenuItem then
  ShowMessage((Sender as TMenuItem).Caption);
 
par exemple

[edtdd]--Message édité par antp--[/edtdd]

Merci