while not UniMainModule.spDD.Eof do begin
      UniMainModule.spDD.FieldByName('DeviceID').ReadOnly := false;
      UniMainModule.spDD.Next;
    end;

    UniMainModule.spDD.FieldByName('DeviceID').ReadOnly := false;

var
   FromDS  : ADOQuery;
   ToDS    : TRxMemoryData;
begin
   FromDS := UniMainModule.spDD;
   ToDS :=  UniMainModule.mdDD;
   
   FromDS.Open();
   
   ToDS.Active:=false;
   ToDS.AutoIncAsInteger:=true;  // подсмотрел в TJvMemoryData, может и в Rx есть (ибо предок)
   ToDS.EmptyTable();
   ToDS.CopyStructure(FromDS);   // возможно, это лишняя строка из-за LoadFromDataSet 
   ToDS.LoadFromDataSet(FromDS, 0, lmCopy);