[lmikle]

Через свойство Tag. при создании устанавливаешь туда уникальные номера и в обработчике проверяешь:

Код:

procedure MenuItemClick(Sender : TObject);
var
  ATag : Integer;
begin
  If Sender Is TMenuItem Then
    Begin
      ATag := (Sender As TMenuItem).Tag;
      Case ATag Of
        1 : DoMenuItem1; // Здесь вызов твоего кода
        2 : DoMenuItem2; // Здесь вызов твоего кода
        3 : DoMenuItem3; // Здесь вызов твоего кода
      Else ShowMessage('Нераспознаное меню!');
    End;
end;