Продолжая биться над массивом линий, пробую объявить массив так
Код:
Lines[i]: array [0..3000] of TShapes;
тогда при помощи рисования четырех угольника, можно его "сжимать" и рисовать линию, тогда такой вопрос как рисовать четырехугольник не на форме а на панели, в виде линии при помощи данного объекта?