[dec]

Hola,

Fíjate en el parámetro "sender", que es quien se "envía" en el evento. Podrías hacer algo como:

Código Delphi [-]
var
  miTag: integer;
begin
  if (sender is TButton) then
    miTag := TButton(sender).Tag;  
end;