BalanceColors Delphi Example

   {This example assumes there is a bitmap loaded}
var
   RedFact, GreenFact, BlueFact: COLORBALANCING; 
begin
   RedFact.toRed:= 0.25; 
   RedFact.toGreen:= 0.50; 
   RedFact.toBlue:= 0.25; 
   GreenFact.toRed:= 0.30; 
   GreenFact.toGreen:= 0.40; 
   GreenFact.toBlue:= 0.30; 
   BlueFact.toRed:= 0.10; 
   BlueFact.toGreen:= 0.60; 
   BlueFact.toBlue:= 0.30; 
   LEADImage1.BalanceColors ( RedFact, GreenFact, BlueFact ); 
end;