[tigra-nsk]

создал программно кнопки:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  b: TspeedButton ;
  a:integer;

begin
 for a:=1 to 10 do begin
 b := TspeedButton.Create(form1);
 b.Parent := Form1;
 b.Name:='button'+inttostr(a);
 b.Width:=57;
 b.Height:=25;
 b.Left:=16+a*57;
 b.Top:=32;
 b.Hint:=b.Name;
 end;

end;


procedure tform1.speedbutton1click(Sender: TObject);
begin
halt;
end;

столкнулся теперь с проблемой, что tform1.speedbutton1click не работает. каким образом обращаться к каждой кнопке?
ПС: Hint тоже не отображается =(