array de botones

[Maga84]

Hola a todos.
Soy principiante con delphi
A ver si os se explicar mi duda
he hecho un array de botones que tiene como maximo 30 elementos:

bnt:array [1..30] of Tbutton;

En el FormCreate creo los botones según el número de elementos que tengo en una tabla.
for i:=1 to ADOTable1.RecordCount do
begin
...

bnt[i]:=tbutton.Create(self);
bnt[i].Left:=335;
bnt[i].Top:=16;
bnt[i].Width:=50;
bnt[i].Height:=25;
bnt[i].ParentWindow:=p[i].Handle;
bnt[i].Name:='Binfo'+IntToStr(i);
bnt[i].Font.Size:=20;
bnt[i].Caption:='...';
...

end;

Ahora lo que quiero es que todos los botones tengan un mismo procedure OnClick pero no se como se hace esto. Además quiero que dependiendo del indice del boton se haga algo.
Esto con visual basic me parecía muy facil. Pero con delphi todavía ando un poco perdida.
Seguro habrá alguna manera sencilla de hacer esto.
Por favor echarme un cable.
Gracias
Un saludo