прямоугольник задаваемый 4 точками TSinglePoint
type TSingleRect = record Left: Single; Top: Single; Right: Single; Bottom: Single; end;