Проблема с кнопками

[countteran]

Значит в чем заключается вопрос...есть допустим 3 кнопки и строковая переменная. Нужно чтобы при нажатии на кнопку в переменную добавлялся параметр caption кнопки, на которую нажимаешь и так с каждой (я знаю что есть способ при котором будет использоваться всего 1 процедура) вот этот способ прошу и написать, желательно с пояснением, буду очень признателен!

[Пепел Феникса]

на первой кнопке пишем обработчик:

try
 str:=str+(Sender as TButton).Caption;
except;
end;

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

[grafgrial]

да вот весь обработчик

procedure But(Sender:Tobject);

Procedure Form1.But(Sender:TObject);
begin
try
 str:=str+(Sender as TButton).Caption;
// здесь str ваша переменная
except;
end;
end;