Index: fields.inc
===================================================================
--- fields.inc	(revision 15279)
+++ fields.inc	(working copy)
@@ -1706,7 +1706,6 @@
 begin
   Inherited Create(AOWner);
   SetDataType(ftAutoInc);
-  FReadOnly:=True;
   FProviderFlags:=FProviderFlags-[pfInUpdate];
 end;
 
