SelectData example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
   { Load the bitmaps }
   LEADImage1.Load('e:\\image1.cmp', 0, 1, 1 );
   LEADImage2.Load ('e:\\image2.cmp', 0, 1, 1 );
   LEADImage2.GrayScale(16);

   // Call the method
   LEADImage1.SelectData(LEADImage2.Bitmap, RGB(233, 10, 77), 2 { uSrcLowBit }, 6 { uSrcHighBit }, 25 { uThreshold }, TRUE);
   // Now we have the resulted image in DstBitmap
end;