ConvertToColoredGray Delphi Example

{This example assumes there is a bitmap loaded}
var
   RedFact, GreenFact, BlueFact, RedGrayFact, GreenGrayFact, BlueGrayFact: Integer;
begin
   RedFact :=   300;
   GreenFact := 590;
   BlueFact:= 110;
   RedGrayFact:= 500;
   GreenGrayFact:= 300;
   BlueGrayFact:= 200;
   // These arguments will transform the image into a grayscale image
   LEADImage1.ConvertToColoredGray (RedFact, GreenFact, BlueFact, RedGrayFact, GreenGrayFact, BlueGrayFact);
end;