ColorReplace example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
   ColorReplace: REPLACECOLOR; {replaced color structure information}
begin
   {Load a bitmap at its own bits per pixel}
   LEADImage1.Load ('image1.cmp', 0, 1, 1 );
   {Change the red color by rotating its hue 90 degree}
   ColorReplace.crColor:= RGB(200, 0, 35);
   ColorReplace.uFuzziness:= 100;
   LEADImage1.ColorReplace(9000, 0, 0, @ColorReplace, 1);
end;