Сначала опиши процедуру отработки нажатия кнопки, к примеру:
Код:
procedure ButtonClick(Sender: TObject);
begin
if (Sender is TButton) then
begin
//делаем что-то,
//в (Sender as TButton) - наша кнопка, к примеру если хочешь текст поменять, то (Sender as TButton).caption := '*';
end;
end;
Дальше, когда в цикле создаешь кнопки, присваивай им эту процедуру отбработки нажатия;
Код:
...
Button.OnClick:=ButtonClick;
...