>>593です。

>>594
>そもそも pf24bit の画像を pf8bit に減色するのですから
>変な色になるのは当然です。また、パレットは pf8bit 以下の
>色分解能であるときのみ有効です。もともと２５６色の画像を
>591 のようにやって変な色になるとしたら、実行環境のビデオ
>ドライバがおかしいか、そもそも２５６色以下の環境である可能性が
>あります。
今の自分が使っている画面の設定はHigh Color(16ビット)です。
>>593のソースの中の
DataImage.Picture.Bitmap.PixelFormat := pf8bit;
というのをすると、ＢＭＰが変な色になります。
コメントアウトすれば普通に表示されます。
フルカラーのＢＭＰでなるのなら分かるのですが、
２５６色のＢＭＰでもなってしまいます。

>>603
>違わないが、「理想的な減色」とはいっていない。元質問者は２５６色
>の絵を描くツールを作っているわけで、予めパレットを設定しておくこ
>とにどれほどメリットがあるだろうか？しかも２５６色以内の使用色
>でも固定のハーフトーン色に減色されるんですか。だとしたら、実装が
>ボロいということですね。
２５６色の固定パレット（もちろん編集は可能）を用意して、
そのパレットを使うＢＭＰを複数枚書くのを目的としています。

>>595
TnkDIB ダウンできないようです（４０４）Ｄｅｌｐｈｉ５までしか
対応になっていないからでしょうか。

みなさん、ありがとうございました。
引き続き教えていただければうれしいです。