procedure TForm1.FormPaint(Sender: TObject);
var i:Word;
    Dy,y:Real;
begin
  Dy:=ClientHeight/256;//ClientHeight不明白clien是个什么?
  y:=0;
  for i:=255 Downto 0 do//downto?
    begin
    Canvas.brush.color:=$00000000+i*$10000;//$00000000+i*$10000的定义是什么?
    Canvas.fillrect(rect(0,round(y),clientwidth,round(y+Dy)));//这句起什么作用
    y:=y+Dy;
    end;
end;