SetRgnColorRGBRange example for Delphi

//This example sets a region corresponding to all colors that
//have an rgb that includes red but no green and no blue
var
   rgbLo: OLE_COLOR;
   rgbHi: OLE_COLOR;
begin
   rgbLo:= RGB(1, 0, 0);
   rgbHi:= RGB(255, 0, 0);
   LEADRasterView1.Raster.SetRgnColorRGBRange (rgbLo, rgbHi, L_RGN_SET);
   LEADRasterView1.RgnFrameType := RGNFRAME_ANIMATED;
end;