canvas画粗点怎么画(100分)

canvas画粗点怎么画？image.canvas.pixel[i,j]:=clblack画出来的点太小了

两种办法：
1、直接设置pen的width，默认是1；
2、自己把该点周围的点也都染色。

用个小圆图片来代替

设置pen的width好像不行，我把代码贴出来帮我看下啊
procedure ternary_phase_diagram(form:Tform;image:Timage;L,T,W:integer;
a,b,c:array of real;n:integer);
var
i:integer;
begin
image.Parent:=form;
image.Left:=L;
image.Top:=T;
image.Height:=W;
image.Width:=W;
image.Canvas.Polyline([point(0,W-10),point(W-10,W-10)]);
image.Canvas.Polyline([point(0,W-10),point(round((W-10)/2),round((W-10)-(W-10)*sin(pi/3)))]);
image.Canvas.Polyline([point(round((W-10)/2),round((W-10)-(W-10)*sin(pi/3))),point((W-10),(W-10))]);
[red]image.Canvas.pen.width:=3;[/red]//我要在这里加，但下面一句没有粗点出现
for i:=0 to n-1 do
image.Canvas.Pixels[round((W-10)*(b+c*sin(pi/6))),round((W-10)*(1-c*sin(pi/3)))]:=clred;
end;

已经解决了[]

呵呵，对于用Pixels染色，pen的width的确没用（我怎么给忘了！？）
如果用lineto或者Polyline等，width才有用。