[ContraVeneno]

Yo te recomendaría que usaras la propiedad Tag de tus botones.

Con esta propiedad puedes utilizar una instrucción:

Código Delphi [-]
Case (Sender as TButton).Tag of
 1: ...
 2: ...

etc...

o directo:

Número := (Sender as TButton).Tag;