SetRgnColorHSVRange example for Delphi

//This example sets a region corresponding to all pure green (Hue = 85)
//and colors near green (+/- 10)
//where Saturation is at least 40 and Value is at least 40
var
   H0: Integer;
   S0: Integer;
   V0: Integer;
   H1: Integer;
   S1: Integer;
   V1: Integer;
begin
   H0 := 75;
   S0 := 40;
   V0 := 40;

   H1 := 95;
   S1 := 255;
   V1 := 255;
   LEADRasterView1.Raster.SetRgnColorHSVRange (H0, S0, V0, H1, S1, V1, L_RGN_SET);
   LEADRasterView1.RgnFrameType := RGNFRAME_ANIMATED;
end;