[Goodle]

Доброго времени суток!
Вопрос:
нужно сохранить загруженный в TImage цветной BMP в монохромный?
Функцию которая переводит цвет в монохром так как мне надо я написал, а вот при сохранении вес данного детища отнюдь не как у монохромного, предполагаю делфи в него еще информацию о палитре пишет которой пользоваться не буду...

Код:

function BnWImgCreate(Original,BnW:TImage):boolean;
var X,Y:Integer;
begin
BnW.Width :=Original.Width;
BnW.Height:=Original.Height;
BnW.Canvas.Draw(0,0,Original.Picture.Graphic);
  For X:=1 to BnW.Width do
      For Y:=1 to BnW.Height do
        begin
          if BnW.Canvas.Pixels[X,Y]<>RGB(255,255,255) then
             BnW.Canvas.Pixels[X,Y]:=RGB(0,0,0);
        end;
BnW.Picture.SaveToFile('BnW.bmp');
end;

Заранее спасибо!

[NumLock]

Код:

BnW.Picture.Bitmap.PixelFormat:=pf1bit;

Код:

BnW.Picture.Bitmap.Monochrome:=True;

[Goodle]

Сообщение от NumLock

Код:

BnW.Picture.Bitmap.PixelFormat:=pf1bit;

Код:

BnW.Picture.Bitmap.Monochrome:=True;

Спасибо Большое!