Delphi - Campo auto-incremento no ClientDataSet

 with CDS.FieldDefs do
  begin
    Add('Codigo',ftAutoInc,  0, False);
    Add('Nome'  ,ftString ,  20, False);
    Add('Cidade',ftString,  20, False);
    Add('UF'    ,ftString,   2, False);
  end;
  CDS.CreateDataSet;
  CDS.Open;