[RobertoAmores]

Necesito capturar una serie de registros de un ClientDataSet, pero no entiendo bien como funciona internamente. Tengo este codigo:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IBTable1.Active:=True;
  While not ClientDataSet1.Eof do
  begin
	IBTable1.Insert;
	IBTable1.Fields[0].Value := ClientDataSet1.Fields[0].Value;
	IBTable1.Fields[1].Value := ClientDataSet1.Fields[1].Value;
	IBTable1.Fields[2].Value := ClientDataSet1.Fields[2].Value;
	IBTable1.Fields[3].Value := ClientDataSet1.Fields[3].Value;
	IBTable1.Fields[4].Value := ClientDataSet1.Fields[4].Value;
	IBTable1.Fields[5].Value := ClientDataSet1.Fields[5].Value;
	IBTable1.Fields[6].Value := ClientDataSet1.Fields[6].Value;
	IBTable1.Fields[7].Value := ClientDataSet1.Fields[7].Value;
	IBTable1.Fields[8].Value := ClientDataSet1.Fields[8].Value;
	ClientDataSet1.Next;
  end;
  IBTable1.Post;
  IBTable1.Active:=False;
end;

Pero sólo me inserta el primer registro. ¿Ves algo erroneo en el codigo? ¿Sabrias como podria solucionar mi problema?
Muchas gracias por todo, espero tener suerte, . Chao.