不会确定刷子颜色(30分)

用当前刷子绘制100正方形
canvas.fillrect(rect(0,0,100,100))
不会确定颜色,谁知道?

procedure TForm1.FormPaint(Sender: TObject);
var
I: Word ;
Y,YStep: Real;
begin
Y:=0; // 设置Y方向的初
YStep:=ClientHeight/256; // 设置步长
for I:=255 downto 0 do
begin
Canvas.Brush.Color:=$00000000+i*$10000; // 改变颜色
Canvas.FillRect(Rect(0,Round(Y),ClientWidth,Round(Y+YStep)));
Y:=Y+YStep;
end;
end;

Canvas.Brush.Style := bsSolid;
Canvas.Brush.Color := clRed;

多人接受答案了。