Delphi - NOMBRE DE CONTROL EN UNA VARIABLE

Hola, defini en un formulario 100 botones con un numero en el caption, como puedo hacer una rutina que tome como parametro el nombre del boton para no hacer uno por uno?
cada boton se llama btn001, btn002, btn003 .... para todos, cuando hago click sobre un boton quiero hacer una factura y que en la factura me aparezca el nro de boton.
Bueno espero se entienda.
Gracias!!

procedure TFrmMesas.btn001Click(Sender: TObject);
begin
aux_factur := 'A';
aux_nromesa := '001'; //esto se puede leer del nombre del boton?????????????
Application.CreateForm(TFrmFactura, FrmFactura);
FrmFactura.Showmodal;
end;

Si todos los botones comparten el mismo OnClick puedes acceder al nombre del que ha llamado al evento de esta manera:

TButton(Sender).Caption;

Saludos.