Image и массив

[Hell2000]

Не подскажете, как в image построить точки, считанные с массива?
Кусок проги:

begin
image1.Picture.Bitmap.Canvas.Pixels [Round(j.coord_x), Round(j.coord_y)]:=rgb(255,0,0);
j- это пакет данных, который считывает coord_x и coord_y
end

[Stilet]

For i:=Low(a) to high(a) do
 image1.Picture.Bitmap.Canvas.Pixels [Round(a[i].coord_x), Round(a[i].coord_y)]:=a[i].Color;

Учитывая что :

rec=record coord_x,coord_y:Double;Color:TColor;end;
a:array of rec;