Еще такой вопрос вот код
Код:
Lines: array [0..3000] of TCanvas;
Lines[i]:=TCanvas.Create;
Lines[i].Pen.Color:=clred;
Lines[i].MoveTo(Sklad.Top, Sklad.Left);
Lines[i].LineTo(100,100);
то есть, что я хочу, создать массив линий, но сначала хотя бы начертить одну красную, Moveto как я понял это начальная точка, Lineto куда вести линию. И код конечно не работает, вроде говорит что канва не доступна, как правильно его переделать?