gridrectty

type gridrectty = record

  case Integer of

    0: (

        col: Integer;

        row: Integer;

        colcount: Integer;

        rowcount: Integer;

      );

    1: (

        pos: gridcoordty;

        size: gridsizety;

      );

end;