DBImage - Bitmap ist ungültig

[uwe12]

Ob ich bei Position 78 oder 200 eintrage, ist egal. Denn irgendwie schneidet der nichts davon weg. Ich komme irgendwie nicht damit zurecht. Es kommt immer die Fehlermeldung ,,Bitmap ist ungültig".

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp:TBitmap;
  ms:TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  try
    TBlobField(AdoDataset1.FieldByName('Bild')).SaveToStream(ms);
    ms.Position:=0;
    bmp:=TBitmap.Create;
    ms.SaveToFile('temp.bmp');
    try
      bmp.LoadFromStream(ms);
      Image1.Picture.Assign(bmp);
       finally
   FreeAndNil(bmp);

    end;
  finally
    FreeAndNil(ms);
  end;

     TBlobField(AdoDataset1.FieldByName('Bild')).LoadFromFile('temp.bmp');
  end;