TGRECT

type TGRECT = record

  case Integer of

    0: (

        x: SmallInt;

        y: SmallInt;

        w: SmallInt;

        h: SmallInt;

      );

    1: (

        g_x: SmallInt;

        g_y: SmallInt;

        g_w: SmallInt;

        g_h: SmallInt;

      );

end;