copiar dados do dbgrid para stringgrid

Procedure P_Copia_Grid(l_clientDataSet : TClientDataSet);
var v_i, v_j : integer;
begin
l_clientDataSet.First;
for v_i := 0 to l_clientDataSet.recordCount - 1 do
begin
for v_j := 0 to l_clientdataSet.FieldCount - 1 do
begin
StringGrid1.cells[v_j, v_i] := l_clientDataSet.fieldbyname(
l_clientDataSet.fields[v_j].fieldname).asstring;
end;
end;

nao estou conseguindo fazer essa copia, no stringrid so aparece o primeiro registro varias vezes


valeu

I := 1;
While not Table1.eof do
Begin
Variavel1 := FieldByName(´CAMPO1´).AsInteger;
Variavel2 := FieldByName(´CAMPO2´).AsString;
Variavel3 := FieldByName(´CAMPO3´).AsFloat;
StringGrid1.Cells[0,I] := IntToStr(Variavel1);
StringGrid1.Cells[1,I] := Variavel2;
StringGrid1.Cells[2,I] := FloatToStrF(Variavel3);
I := I + 1;
StringGrid1.RowCount := I + 1;
Next;
End;