[mbv]

на

Код:

x := FindComponent(a);

пишет

Код:

[Error] Unit3.pas(224): Incompatible types: 'TButton' and 'TComponent'

просто исправил x: TButton; на x: TComponent;