关于Timage画点的问题(30分)

下面是我用Timage来控件画图的代码，
stastring是0或1组成的字符串
用pixels方法画一个一个的点
问题：请问，怎样改变这些点的大小?

for i := 1 to Length(stastring) do
begin
y:=((i-1) div width)*(image1.height div height);
x:=((i-1) mod width)*(image1.width div width);
if copy(stastring,i,1)='1' then
begin
image1.Canvas.Pixels [x,y]:=clred;
end else
image1.Canvas.Pixels [x,y]:=clgreen;
end;

利用Canvas.Pixels[x,y]只能给一个象素点赋颜色；
通常改变点的大小是通过Canvas.Ellipse来实现的。
begin
Canvas.Pen.Color :=clRed;
Canvas.Brush.Color :=clRed;
Canvas.Brush.Style :=bsSolid;
Canvas.Ellipse(40,40,45,45);
end;

多谢 卷起千堆雪tyn
是我茅塞顿开