[Janom]

Или так:

Код:

var
  Form1: TForm1;
  Button2 : Tbutton;
<...>
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 10 do
 begin
   With Button2 do
     begin
       TButton.Create(Form1);
       Parent := Form1;
       Height := 25;
       left:=72 ;
       Top:=8;
       Name:='Btn'+IntToStr(i);
     end;
 end;
 end;

Потом производиш поиск по имени. Если кнопка нашлась присвоить ей какое-либо событие...