Gracias por los enlaces pero no encontré nada significativo. Este código lo utilizo y funciona, pero las imágenes que tengo que convertir son enormes. Este método con "Pixels" es muy lento. Alguien conoce el equivalente en "ScanLine"? Desde ya, muchas gracias.
Código Delphi
[-]
var
BMP1, BMP2: TBitmap;
begin
BMP1 := TBitmap.Create;
BMP1.LoadFromFile('C:\bitmap.bmp'); BMP2 := TBitmap.Create;
BMP2.PixelFormat := pf1bit;
BMP2.Height := BMP1.Height;
BMP2.Width := BMP1.Width;
for X := 0 to BMP1.Width - 1 do
for Y := 0 to BMP1.Height - 1 do
BMP2.Canvas.Pixels[X, Y] := BMP1.Canvas.Pixels[X, Y];
BMP1.Free;
end;