delphi 怎样用字符串叫出对象来用

TButton(findcomponent('button4')).Click;