Why is this an issue?

Empty field sections are superfluous and should be removed.

How to fix it

Remove the empty field section:

type
  TFoo = class(TObject)
  var
    procedure Bar;
  end;

type
  TFoo = class(TObject)
    procedure Bar;
  end;