точка задаваемая 2 целочисленными координатами, поддерживающими значениями от -32768 до 32767
type TSmallintPoint = record x: Smallint; y: Smallint; end;