Bitmap wird falsch gespeichert?

[turboPASCAL]

zB. so:

Delphi-Quellcode:

procedure Dingens(bmp32: TBitmap32; Filename: TFileName);
var bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.PixelFormat := pf24Bit;
  bmp.Width := bmp32.Width;
  bmp.Height := bmp32.Height;
  bmp32.DrawTo(bmp.Canvas.Handle, 0, 0);
  bmp.SaveToFile(Filename);
  FreeAndNil(bmp); // bmp.Free;
end;