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:       begin
          dic := dicIns;
          stmt := FStmtIns;
        end;
        usDeleted:
        begin
  
negative.code:     except
        //spawn
      end;
      EnableControls;
    end;
  end;
  