Wie speichere ich ein Image in eine Datenbank

[LingNeu]

Hi Delphifans,
verwende die Componenten von DevExpress. Habe da auf einem Formular eine Timage, welches angezeigt wird. Nun möchte ich gerne dieses Bild in die Komponente von DevExpress dbImage einspeichern.
Ich bekomme aber immer einen Error. Könnte mir da bitte jemand helfen. Danke für jede Hilfe
ciao LingNeu

Delphi-Quellcode:

// in Image1 befindet sich das zu übertragene Bild
// aBild ist ein Blobfeld in der Datenbank
Tab_A.Edit
if not VarIsNull(Image1.Picture.Bitmap) then begin
   Tab_A['aBild']   := Image1.Picture.Bitmap  ;
end;
Tab_A.Post ;
// inkompatible Typen Variant und TPicture