Единицы измерения пиксели. Верно во вторую метку выводится общая длина всех нарисованных линийю Понятно, что 5.25 пикселя быть не может, можно округлить до ближайшего целого 5.
Код:
private
ClickPos, CursorPos: TPoint;
Lines: Array of TRect;
ClickPos, CursorPos: TPoint; - переменные типа рекорд, удобны тем что уже содержат Х и У. Вместо этих двух переменных можно было бы сделать 4 обычные, но так компактнее и нагляднее.
Lines: Array of TRect - тут чуток посложнее. Array of - это динамический массив, размер которого может изменятся в теле программы. В него идет накопление координат линий. Можно было бы просто сразу записывать не координаты, а длину, но так более гибко. Есть возможность полной перерисовки всех линий заново. А TRect тоже удобный тип, содержит пару переменных типа TPoint, которые я использую для хранения координат линии.