точка задаваемая 2 вещественными координатами с наименьшей вместимостью и точностью
type TSinglePoint = record x: single; y: single; end;