var gd:integer; {smallint //DevPas}