Delphi6でのパレットについて質問します。

以下のような関数を作りたいです。

GetPal( ＢＭＰ画像,パレット変数 )
SetPal( ＢＭＰ画像,パレット変数 )

GetPalは指定されたＢＭＰ画像から２５６色のパレットを読み出して
パレット変数に、格納します。

SetPalは指定されたパレット変数の内容をＢＭＰ画像のパレットとして
設定します。

パレット変数の定義
Palette :array[0..255] of Integer;

いろいろ調べたのですが、（過去ログも見ました。）分からないので具体的に
関数を作って教えていただけないでしょうか？

また、このときＢＭＰ画像が２５６色パレットではない場合には、
２５６色パレットに変換してから、上記の処理をしたいのですが
そういうのは、どうすれば出来るのでしょうか？

具体的には、画面にSelectImage: TImage;というのがあり、そこのＢＭＰに対して
上記の処理を行いたいと思っています。

SelectImage.Picture.LoadFromFile(ImageFileName);
で、ＢＭＰを読み込んだ後に、GetPal関数を使ってパレットを取得
パレット編集後に、PutPal関数を使ってパレットを書き換えて
SelectImage.Picture.SaveToFile(ImageFileName);
で、ＢＭＰを保存しようと思っています。

よろしくお願いします。