重ね重ねすいません
Loadは出来たのですが、今度はSaveが…
TBitmapのヘルプのSaveToClipBoardFormatの例を実行したのですが、
クリップボードへ出力してIrfanView等で読み込むと
何故かファイルサイズが膨らんでしまいます… orz
>>345さまのおっしゃるようにbitが化けているようなのですが、
どうやったら8bitとしてクリップボードへ保存出来るのでしょうか？

procedure Hoge;
var
MyFormat : Word;
Bitmap : TBitMap;
AData: Cardinal;
APalette : HPalette;
begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile('CHEMICAL.BMP');
Bitmap.SaveToClipBoardFormat(MyFormat,AData,APalette);
ClipBoard.SetAsHandle(MyFormat,AData);
finally
Bitmap.Free;
end;
end;