急！！！我在做颜色的渐变，但用普通的方法不行，效果总是不平缓。。。。。(100分)

我在做颜色的渐变，但用普通的方法不行，效果总是不平缓，出来的效果总是一条一条的，
有没有别的方法可以使渐变变得平缓？？？

贴出你的代码。

GDI+ 渐变画刷

网上找的一个，稍微修改了一下
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:Integer;
Dct:TRect;
begin

j:=Form1.height;//获得表单高度

for i:=0 to 255 do //此处设置RGB()中一个颜色值
begin
Canvas.Brush.Color:=RGB(0,0, i); //每次画矩形的画刷颜色
Dct:=Rect(i*2,0,(i+1)*2,j); //每次刷绘的矩形区域
Canvas.FillRect(Dct); //填充颜色
end;
end;

TOtseug这种方法在24色下很好，但16色就不行了。有没有在16色下也能达到24色的效果？