делаем код программы легче

[XFilippowX]

Вопрос довольно простой, раньше так делал, а сейчас не могу вспомнить. Проблема такая: На форме расположено около 100 кнопок, на каждой из которых есть надпись. Ещё есть поле EDIT. Вопрос: как сделать так, чтобы при накжатии на любую из кнопок, надпись, которая находится на ней, копировалась в поле EDIT? (только чтобы не нужно было создавать для каждой кнопки свое событие). Там всего пару слов, а вот каких - не помню (SENDER вроде было). Помогите. Срочно нужно.

[Arigato]

Пишем обработчик события OnButton1Click для первой кнопки:

Edit1.Text := TButton (Sender).Caption;

Далее всем остальным кнопкам указываем этот же обработчик.

[XFilippowX]

Спасибо большое. Очень выручили!

[XFilippowX]

Теперь возникла следующая проблемма. Для кнопок всё нормально, помог выше указанный код. Попробовал сделать тоже самое для элементов MainMenu. Вожу код:
Edit1.Text := TMenuItem(Sender).Caption;

но в поле EDIT в месте с надписью выводится ещё и знак & , хотя я его в названиях не использовал. Как мне от него избавиться?

[Arigato]

но в поле EDIT в месте с надписью выводится ещё и знак & , хотя я его в названиях не использовал. Как мне от него избавиться?

Edit1.Text := StringReplace (TMenuItem(Sender).Caption, '&', '', [rfReplaceAll]);