Error “Filed definition not allowed after methods or properties”. What to do?

In a class, in its various sections (private, public, for example), you must first define class variables, and then only its methods:

  type q = class(Tobject) function q1(x:integer)): pointer; procedure q2(x:integer); function q4(x:integer): integer; procedure q4; private w,h:integer; src,buf: hdc; function X(x:integer):integer; end;