DBImage - Bitmap ist ungültig

[uwe12]

Krieg das irgendwie nich hin.
Hab jetz folgendes da stehn, aber wenn ich die Datei mit nem Hex-Editor öffne, is der header noch vorhanden. Was mache ich falsch?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var MemoryStream, DestStream: TMemoryStream;
 Bitmap: TBitmap;
begin
with AdoDataset1 do
begin
  Bitmap:= TBitmap.Create;
  MemoryStream := TMemoryStream.Create;
  Deststream := TMemoryStream.Create;

    MemoryStream.LoadFromStream(CreateBlobstream(FieldByName('Bild'),bmRead));
    MemoryStream.Position := 78;
    MemoryStream.SaveToStream(DestStream);
    MemoryStream.SaveToFile('temp.bmp');
//    Bitmap.LoadFromStream(DestStream);
//    Image1.Picture.Bitmap := Bitmap;
end;
end;