颜色渐变从蓝色到红色

颜色变化过程：
蓝 （0，0，255）
g:0->255 青（0，255，255）
b:255->0 绿（0，255，0）
r:0->255 黄（255，255，0）
g:255->0 红（255，0，0）

最小值为0 对应蓝色（0，0，255）
0.25      对应青色（0，255，255）
0.5       对应绿色（0，255，0）
0.75      对应黄色（255，255，0）
最大值为1 对应红色（255，0，0）

函数返回对应的颜色
function GetRGB(max:double;min:double;cvalue:double):TColor;
var
  cx : Double;
  r,g,b : Integer;
  ccolor : TColor;
begin
  cx := (cvalue - min) / abs(max - min) ;

  if cx <= 0.25 then
  begin
    r := 0;
    g := Trunc(4 * cx *255);
    b := 255;
  end;
 
  if (cx > 0.25) and (cx <= 0.5) then