dbgrid y table1

[gsilvei]

Hola a todos, estoy utilizando el siguiente codigo:

Código Delphi [-]
procedure TFormCprograma.Button1Click(Sender: TObject);
var
  Idx :Integer;
begin
  if DBGrid3.SelectedRows.Count > 0 then
  begin
    for Idx := 0 to DBGrid3.SelectedRows.Count-1 do
    begin
      // posiciona el dataset de origen en "n" registro seleccionado
      TabGlobal.Dprograma.GotoBookmark(pointer(DBGrid3.SelectedRows.Items[Idx]));
     // mueve los datos del dataset de origen para destino aqui
      Table1.Append;
      Table1ALUMNOMATRI.Value :=  TabGlobal.Dprograma.alumnomatricula.Conteudo;
      Table1ALUMNOID.Value :=  TabGlobal.Dprograma.alumnoID.Conteudo;
      Table1ID.Value :=  CDS.Fields[0].Value;
      Table1COD.Value :=  CDS.Fields[1].Value;
      Table1EXERCICIO.Value :=  CDS.Fields[2].Value;
      Table1TIEMPO.Value :=  CDS.Fields[3].Value;
      Table1.Post;
    end;
  end;  
end;

cargo en un dbgrid una tabla temporaria creada con un TClientDataSet (CDS),
solo que quiero salvar esa tabla temporaria en una tabla fisica(TABLE1).
con ese codigo solo salva el registro selecionado, y quiero salvar todo los registros que aparecen en el dbgrid.
hay alguna forma de recorrer y que selecione todos los registros para despues guardarlos en una tabla fisica?
gracias
guillermo