586(588)です。

>589
そうです。あれからずーっと悩んでいます。難しいです。

>590
そのやり方は初耳ですので調べてみたいと思います。

>591
早速やってみましたが、うまくいきませんでした。
現象としては、まずＢＭＰが正しく表示されません。
なんか、変な色になります。肌色のキャラが黄色になります。
８bit,２４bitのＢＭＰ両方ともなりました。
それに、パレットもうまく表示できませんでした。

>592
フルカラーでやっています。グラフィックツールを作っていて
２５６色の絵を書きたいと思っています。

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

ダメだったソース
// ペンの色表示
procedure TForm1.ColPut;
var
x,y: integer;
PE:array[0..255] of TPaletteEntry;
begin
DataImage.Picture.Bitmap.PixelFormat := pf8bit;
GetPaletteEntries(DataImage.Picture.Bitmap.Palette,0,255,PE);

for x:=0 to 15 do
begin
for y:=0 to 15 do
begin
Palette[x+y*16] := RGB( PE[x+y*16].peRed,PE[x+y*16].peGreen,PE[x+y*16].peBlue );
ColorImage.Canvas.Brush.Style := bssolid;
ColorImage.Canvas.Brush.Color := Palette[x+y*16];
ColorImage.Canvas.FillRect(Rect(x*8+1,y*8+1,x*8+7+1,y*8+7+1));
end;
end;

end;