anchor.diff:  
       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;
  
positive.code:     FStmtUpd: TSQLitePreparedStatement;
      FStmtIns: TSQLitePreparedStatement;
      FStmtDel: TSQLitePreparedStatement;
    protected
  
    public
  
negative.code: 
    if (ChangeCount < 1) and not (Assigned(FUpdateSQL)) and not (Assigned(FDB)) then
      Exit;
  
    FAutoIncField := FindField(FAutoIncFieldName);
  
    bkm := Bookmark;
  
  