anchor.diff:  
     if (ChangeCount < 1) and not (Assigned(FUpdateSQL)) and not (Assigned(FDB)) then
       Exit;
  +
  +  FAutoIncField := FindField(FAutoIncFieldName);
   
     bkm := Bookmark;
   
  
positive.code:   FStmtUpd := nil;
    FStmtIns := nil;
    FStmtDel := nil;
  end;
  
  destructor TSQLiteDataset.Destroy;
  begin
    FUpdateSQL := nil;
    FDB := nil;
    inherited;
  end;
  
  
negative.code: 
      try
        Result := stmt.ExecSQL;
        if AUpdateStatus = usInserted then
        begin
          if Assigned(FAutoIncField) then
          begin
            iKey := FDB.GetLastInsertRowID;
            Edit;
  
            FAutoIncField.SetData(@iKey);
            {TODO -oLinas -cGeneral : exception: index is read only. dont know why...}
            Post;
          end;
  
  
        end;
      except
        Result := False;
      end;
  