>>318,319
レスありがとうございます。
319のレスを見て、見事に完成しました。
実にバカなことをやってました。。。
TBitmapのPixelFormatがpf24bitのままでした。
8bitにすると勝手に減色されてしまい、どうしていいものやらと。。。
が、なんとか解決することに成功しました。
>>310,313,315,318,319さん、
ホンマにありがとうございます。

一応、私と同じ事をして困っている人もいるかもしれない（いるわけない）ので、
コードを載せときます。

var
　Main, Temp, Temp2 : TBitmap;
begin
　Main := TBitmap.Create; //パレットを交換する画像
　Temp := TBitmap.Create; //Mainの一時退避
　Temp2 := TBitmap.Create; //変えたいパレット情報を持つビットマップ

　(ここらへんに読みこむ処理を描き・・・・)

　Temp.Assign(Main);
　Main.PixelFormat := pf8bit
　Main.Palette := Temp2.Palette;
　Bitblt(Main.Canvas.Handle, 0, 0, Main.Width, Main.Height, 0, 0, SRCCOPY);
end;

いじょうのコードでできますた。

ホンマ、ありが㌧