Изменить глубину цвета битмапа

[Тоба]

Необходимо изменить формат пикселя, но так сказать с наименьшей потерей качества, т. е:
если написать:

var
  bmp:TBitmap;
begin
  bmp:=TBitmap.Create;
  bmp.LoadFromFile('C:\source.bmp');
  bmp.PixelFormat:=pf4bit;
  bmp.SaveToFile('C:\target.bmp');
  bmp.Free;
end;

то изменённое изображение выглядит так:

а если изменить глубину цвета с помощью программы Irfan_View на 4бита на пиксель, то изображение приобретает такой вид:

Как видно - "разница на лицо"
Может кто знает как добиться такого-же результата на Делфи.

[x128]

Сообщение от Тоба

Может кто знает как добиться такого-же результата на Делфи.

Простых способов нет. Если есть желания разобраться и реализовать что-то свое, вот несколько ссылок:
Лекция: Алгоритмы квантования для полутоновых и цветных изображений
Color quantization
Нормальных реализаций я не встречал, обычно это поделки которые не дают желаемого результата, либо большие проекты с кучей лишнего.
ImageEn (Median Cut, NeuQuant) - платный, но в сети есть более старые версии с исходниками.
FreeImage (Wu, NeuQuant) - библиотека, FreeImage Delphi Wrapper
Это далеко не все, что можно найти, возможно есть еще интересные проекты. Еще в TGIFImage реализовано Octree квантование, но качество для 16 цветов скорее всего будет плохим.

[Тоба]

x128, спасибо за отклик и за ссылочки - поковыряюсь, может чё и выгорит
P.S. достать бы исходничек Irfan_View - и "гора с плеч"