[firstvirus]

хм. я может и ошибаюсь но может быть лучше так сделать?

TButton = class(TObject)
  переменные
  public
  procedure OnClick();
  end;

тогда вызов будет Button1.OnClick();