[GriLab]

Доброго времени суток!

У меня возникла проблема в Delphi XE (2011):

Вот пример исходного кода:

Код:

program MyApp;

var
  ExitButton: TMenuItem; // TButton, TMenuItem, TList, TComboBox и т.д.

procedure ExitButtonClick(Sender: TObject);
begin
  { ... }
end;

begin
  { ... }
  ExitButton.OnClick := ExitButtonClick; // Вот в этом месте ошибка
  { ... }
end.

Ошибка: E2009 Incompatible types: 'method pointer and regular procedure'

Помогите разобраться с ошибкой, уже как 3 месяца не могу понять в чем дело.

Заранее спасибо!