ChannelMix example for Delphi

procedure TForm1.ChannelMixClick(Sender: TObject);
begin
   LEADImage1.ChannelMix( 50, 0, 0, 0, 100, 100, 0, 0, 0, 0, 100, 0 );
end;