帮帮忙，改一下代码！

procedure Tform1.hsv2rgb(Hue:Thue;saturation,value:byte;var red,green,blue:byte);
var
  f,h,m,n:Double;
  a:integer;
  w,y,z:byte;
begin
     m:=saturation/255;
     if m=0 then     //这里出错显示“left side cannot be assigned to”
       red:=green:=blue:=value
     else
      begin
        h:=hue/60;
        a:=hue div 60;
        f:=h-a;      //这里显示“incompatible type：‘byte’and‘extended’
        w:=value*(1-m);//同上一句同样的错误
        y:=value*(1-m*f);//同上一句同样的错误
        
        z:=value*(1-m*(1-f));//同上一句同样的错误
        
        case a of
        0: red:=value,green:=k,blue:=m;
        1: red:=y,green:=value,blue:=m;
        2: red:=w,green:=value,blue:=k;
        3: red:=w,green:=n,blue:=value;
        4: red:=z,green:=m,blue:=value;
        5: red:=value,green:=m,blue:=n;
      end;
end;