Bilder in die Paradoxtabelle speichern ?

[Vader]

hallo,

JPEG habe ich in uses aufgenommen,dann hat er auch den code kompiliert

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var 
   blob : TMemoryStream; 
  jpeg : TJPEGImage;
   bmp : TBitmap; 
   s: String; 
begin 
    blob :=  TMemoryStream.Create(); 
    jpeg := TJPEGImage.Create;
    bmp := TBitmap.Create; 
   TRY 
     if OpenpictureDialog1.Execute then 
     begin 
          s :=ExtractFileExt(OpenPictureDialog1.FileName); 
          if uppercase(s) = '.BMP' then 
          begin 
             bmp.loadfromfile(OpenPictureDialog1.FileName); 
             blob.Clear; 
             bmp.saveToStream(blob); 
          end else 
          begin 
            jpeg.LoadFromFile(OpenPictureDialog1.FileName);
             blob.Clear; 
            jpeg.SaveToStream(blob);
          end; 
        //  query1.SQL.Text := 'Update Tabelle Set Foto = :Bild  where ID = :id';
          query1.SQL.Text := 'Insert into losch( Tennis) values( :Bild);'; 

          query1.ParamByName('bild').LoadFromStream(blob,ftGraphic); 
       //   query1.ParamByName('id').AsInteger := DM.FahrerID.AsInteger;
          query1.ExecSQL; 
     end; 
   Finally 
      freeandnil(blob); 
      freeandnil(jpeg);
      freeandnil(bmp); 
      DBImage1.LoadPicture; 
   END 
end;

er läßt mich auch posten, aber wenn ich das jpeg dann in der dbimage anschauen will kommt der fehler


bitmap ist ungültig mfg vader