[PhoeniX]

Код:

if FindComponent(a) <> nil then
  (FindComponent(a) as TButton).Caption := '1';