Image in Access Datenbank speichern

[uwe12]

wenn ich einen neuen datensatz anlegen möchte und dann auf speichern klicke, dann kommt immer folgender Fehler: AdoTable1atenmenge werder im Editier- noch im Einfügemodus aufgetreten.

Delphi-Quellcode:

var 
  blob: TAdoBlobStream; 
  fs:TMemorystream; 
begin 
  AdoTable1.edit;
  blob := TADOBlobStream.Create(AdoTable1Bild, bmwrite);
  try    
    fs := TMemorystream.create();
    ADOImage.Picture.Bitmap.SaveToStream(fs);
    fs.Seek(0, soFromBeginning);
    try 
      blob.CopyFrom(fs, fs.Size);
        AdoTable1.post;
    finally
      fs.Free; 
    end; 
  finally     
    blob.Free;
  end;  
end;

der Fehler kommt bei AdoTable1.post;