[Decoding]

Код:

procedure TForm1.MenuBtnClick(Sender: TObject);
begin
{Вот тут-то я и незнаю как написать чтоб можно было сделать чтото вроде этого:
Если нажата "Кнопка №1" то в LEdit1 написать что "нажата Кнопка №1".
Если нажата "Кнопка №2" то в LEdit1 написать что "нажата Кнопка №2".
Если нажата "Кнопка №3" то в LEdit1 написать что "нажата Кнопка №3".
Причем, число кнопок,и их имена(Caption) неизвестно.}
 
Form1.LEdit1.Text := ( Sender as TMenuItem ).Caption;
// Теперь ты знаешь что нажато
end;