DynamicBinary example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
   { Load the bitmaps, keeping the bits per pixel of the file }
   LEADImage1.Load ('image1.cmp', 0, 1, 1 );
   { convert it into a black and white image without changing its bits per pixel }
   LEADImage1.DynamicBinary ( 8, 16);
end;