ClientDataSet中数据保存的有关问题

ClientDataSet中数据保存的问题
ClientDataSet中的数据保存，其中有一个字段为流水号，所以要求每条数据都是唯一号，如何在ApplyUpdates前给每条记录赋一个流水号？
[解决办法]

var i,recno:integer;
begin
ClientDataSet1.DisableControls;
recno := ClientDataSet1.RecNo;
ClientDataSet1.First;
for i := 0 to  ClientDataSet1.RecordCount - 1 do
begin
  ClientDataSet1.FieldByName('aa').AsString := i;
  ClientDataSet1.Next;
end;
ClientDataSet1.RecNo := recno;
ClientDataSet1.EnableControls;