var gm:integer; {smallint //DevPas}