Fórum Loop #291484

Caros colegas,

Estou tentando fazer o seguinte loop em um ClientDataset e não estou
conseguindo.
Alguém poderia verificar o código abaixo , e me ajudar a encontrar o
erro.
Preciso incrementar o valor de 1 até 5.(mas não posso utilizar campo
autoinc)


procedure Tfm1.FormCreate(Sender: TObject);
var
n,i:integer;
begin
dm.SQLDataSet1.Active:=True;
dm.ClientDataSet1.Active:=True;
n:=5;
begin
i:=0;
while not (i >= n ) do
begin
i:=i+1;
dm.ClientDataSet1.insert;
dm.ClientDataSet1Seq.AsInteger:=i;
dm.ClientDataSet1.post;
dm.ClientDataSet1.next;
end;
end;


Obrigado ,

Jose