SetRgnColorHSVRange example for Delphi

var
   H0: Integer;
   S0: Integer;
   V0: Integer;
   H1: Integer;
   S1: Integer;
   V1: Integer;

begin
   {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}

   H0:= 75;
   S0:= 40;
   V0:= 40;

   H1:= 95;
   S1:= 255;
   V1:= 255;

   LEADImage1.SetRgnColorHSVRange ( H0, S0, V0, H1, S1, V1, L_RGN_SET ) ;
   LEADImage1.RgnFrameType:= ftAnimated;
end;