这段获取渐变色的代码有什么问题？　－－－急，在线等！（100分）(100分)

随便设置两个起始颜色作渐变，参数NUM指渐变后颜色的数量，参数Index指第几个渐变色，
但这段代码返回的颜色始终是一个值，请各位大虾帮帮忙呀！

如下：
GetColorA(0,101,clblack,clred);
GetColorA(1,101,clblack,clred);
GetColorA(2,101,clblack,clred);
...
...
GetColorA(100,101,clblack,clred);
获取的100个渐变色都一样，不知问题在哪？

以下是源代码：
// ************************************************************
// 参数：
// Index：当前的要获取的颜色索引
// Num: 颜色渐变的数量
// StartColor,EndColor：起始和结束的颜色值
// 返回值：当前的颜色索引(Index)的颜色
// 描述：获取当前指定的渐变色值
// ************************************************************
function GetColorA(Index, Num: Integer; StartColor,EndColor: TColor): Cardinal;
var
StartRGB,EndRGB: array [0..2] of Byte;
RGBKoef: array [0..2] of Double;
IntR,IntG,IntB :Integer;
begin
StartColor := ColorToRGB(StartColor);
EndColor := ColorToRGB(EndColor);

StartRGB[0] := GetRValue(StartColor);
StartRGB[1] := GetGValue(StartColor);
StartRGB[2] := GetBValue(StartColor);

EndRGB[0] := GetRValue(EndColor);
EndRGB[1] := GetGValue(EndColor);
EndRGB[2] := GetBValue(EndColor);

IntR :=(EndRGB[0] - StartRGB[0]);
IntG :=(EndRGB[1] - StartRGB[1]);
IntB :=(EndRGB[2] - StartRGB[2]);

RGBKoef[0] := IntR / Num;
RGBKoef[1] := IntG / Num;
RGBKoef[2] := IntB / Num;

Result :=TColor(RGB(
StartRGB[0] + Round((Index + 1) * RGBKoef[0]),
StartRGB[1] + Round((Index + 1) * RGBKoef[1]),
StartRGB[2] + Round((Index + 1) * RGBKoef[2])));
end;

没人会？不可能吧？

ＵＰ有分！

怎么会呢? 我试了,的确是生成了渐变色.你怎么得到一样的值的? 看看下面的测试代码:
procedure TForm1.FormPaint(Sender: TObject);
var
i: Integer;
begin
for i := 0 to 100 do begin
Canvas.Pen.Color := GetColorA(i, 101, clBlack, clRed);
Canvas.MoveTo(10, i + 10);
Canvas.LineTo(110, i + 10);
end;
end;
这样就可以在窗体上画渐变色了.

窗体上是画渐变色了

我用的画刷，在Ｉｍａｇｅ上，颜色一样

肯定是你的代码有问题,将完整代码贴出来看看.