ChangeHueSatInt example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
   HsiData: HUESATINTDATA;{Color Range Information structure}
begin
   { Load a bitmap at 24 bits per pixel  }
   LEADImage1.Load('IMAGE1.CMP', 0, 1, 1 );
   {Change bitmap hue, saturation, and brightness}
   HsiData.nHue:= 18000;
   HsiData.nSaturation:= 0;
   HsiData.nIntensity:= 0;
   HsiData.nOuterLow:= 315;
   HsiData.nOuterHigh:= 45;
   HsiData.nInnerLow:= 345;
   HsiData.nInnerHigh:= 15;
   { change the red color to green }
   LEADImage1.ChangeHueSatInt( 0, 0, 0, @HsiData, 1 );
end;