GrayScaleToMultitone example for Delphi

procedure TForm1.GrayScaleToMultitone1Click(Sender: TObject);
var
   crColors: Array [ 0..1 ] of COLORREF;{ New Color }
begin
   { Change the bitmap to grayscale bitmap}
   LEADImage1.GrayScale( 8 );

   { The new colors }
   crColors[0]:= RGB ( 255, 255, 0 );
   crColors[1]:= RGB ( 255, 0, 0 );

   { Apply Multitone conversion }
   LEADImage1.GrayScaleToMultitone( DT_DUOTONE, @crColors, DT_LINEAR, Nil, DT_REPLACE );
end;