Trying to modify a Read-Only Field (ClientDataSet)

[Dclase]

Código Delphi [-]
With ClientDataSet1 Do
Begin

ClientDataSet1.Close;
ClientDataSet1.Commantext := ' Select * from Tabla1';
ClientDataSet1.Open
  If Not Eof Then
  Begin
     First;
     While Not Eof Do
     Begin
         ClientDataSet2.Edit;  //Este Cds no esta conectado a ningun provider 
                                      //Solo lo utilizo para actializar datos en memoria
         ClientDataSet2.FieldByName('CAMPO1').AsFloat := FieldByName('CAMPO1').AsFloat;
     Next; 
     End;
  End;

End;

Cuando entra al bucle por primera vez edita el primer registo, pero el siguiente ya me dispara el mensaje de que no puede modificar..