Blob Fehler: Blob nicht geöffnet

[Fritz01]

Hallo Benutzername,
habe die gleiche Fehlermeldung und komme da nicht weiter.
Benutze D5 und Dbase Tabelle.
mit nachfolgendem Code sollte es doch funktionieren.
Wo liegt da mein Fehler? Für Lösung wäre ich dankbar.
Fritz01

Delphi-Quellcode:

procedure TDemoForm.WriteButtonClick(Sender: TObject);
var
 s: TStream;
 jpeg:TJpegImage;
begin
 try
  Jpeg:=TJpegImage.Create;
  try
   with Table do begin
    Append;
    s:= CreateBlobStream(TBlobField(FieldByName('jpg')), bmWrite);
    Jpeg.SaveToStream(s);
    Post;
   end;
  except
   ShowMessage('Bild nicht gespeichert');
  end;
 finally
  FreeAndNil(s);
  FreeAndNil(jpeg);
  ShowMessage('Bild gespeichert');
 end;
end;