以下のコードを実行すると、出力ファイルのサイズが何故か肥大化してしまいます。
ファイルサイズが変更しない正しいClipboard上でのBitmapの扱い方を教えて下さい。

var
 BMP: TBitmap;
begin
 BMP:= TBitmap.Create;
 try
  BMP.LoadFromFile('Hoge.bmp');
  Clipboard.Assign(BMP);

  BMP.Assign(Clipboard);
  BMP.SaveToFile('ClipHoge.bmp');
 finally
  BMP.Free;
 end;
end;