GrayScaleExt Delphi Example

{This example assumes there is a bitmap loaded}
var
   RedFact, GreenFact, BlueFact: Integer;
begin
   RedFact    := 300;
   GreenFact  := 590;
   BlueFact   := 110;
   LEADImage1.GrayScaleExt (RedFact, GreenFact, BlueFact);
end;