[v1s2222]

Вот так работать будет:

Код:

  private
    procedure ExitButtonClick(Sender: TObject);
  public
  end;

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

{$R *.dfm}

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

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