Вопрос по событиям в Delphi

Представьте что у вас есть много кнопок (20 к примеру), создающихся с помощью for....
И для этих кнопок нужно своё событие...
Как можно избавиться от 20 процедур?
Например как сделать подобное:
procedure ButtonClick(name: string)
case name of
button1:...
button2:...
button3:...
...
По нажатию определённой кнопки вызывается процедура ButtonClick и параметром отправляется имя кнопки(или номер)
Как это сделать?
Или есть ли другой выход?

вешаешь всем кнопкам один обработчик:

procedure ButttonClick(sender: TObject)
begin
if sender = Button1 then
begin
// ...
end
else if sender = Button2 then
begin
// ...
end
else if sender = Button3 then
begin
// ...
end
// и так далее
end;

Теги