Como coger datos de un DBGrid

[RobertoAmores]

Gracias por tu ayuda, con ese código casi lo he conseguido, lo que pasa es que solo lee la primera fila del DBGrid, sabrias como adelantar el puntero?

[RobertoAmores]

Gracias por tu ayuda, casi me funciona ya la aplicacion, lo q pasa es que me saltan diferences excepciones, y algunas veces carga el primer dato y otras veces ninguno, este es el código del click boton:

procedure TForm1.Button1Click(Sender: TObject);
begin
IBTable1.Active:=True;
While not ClientDataSet1.Eof do
begin
IBTable1.Insert;
IBTable1.FieldByName('C_MENS_COD').Value := ClientDataSet1.Fields[0].Value;
IBTable1.FieldByName('N_IND').Value := ClientDataSet1.Fields[1].Value;
IBTable1.FieldByName('C_COD_INT').Value := ClientDataSet1.Fields[2].Value;
IBTable1.FieldByName('C_MENS').Value := ClientDataSet1.Fields[3].Value;
IBTable1.FieldByName('C_TIPO').Value := ClientDataSet1.Fields[4].Value;
IBTable1.FieldByName('C_ORIG').Value := ClientDataSet1.Fields[5].Value;
IBTable1.FieldByName('C_MENS_INT').Value := ClientDataSet1.Fields[6].Value;
IBTable1.FieldByName('C_MOD').Value := ClientDataSet1.Fields[7].Value;
IBTable1.FieldByName('L_PAR').Value := ClientDataSet1.Fields[8].Value;
ClientDataSet1.Next;
end;
IBTable1.Post;
IBTable1.Active:=False;
end;


Una de las excepciones que me salta es esta:

Project Proyecto.exe raised exception class EDatabaseError with message "IBTable1: DataSet not in edit or insert mode"...

El IBTable1 no tiene DataSet, a cual se refiere? Puede ser esta la causa de mi problema?

[Cabanyaler]

Bueno, eso haciendo una traza del flujo del programa enseguida se descubre. Suerte.

[RobertoAmores]

y como se hace una traza desde Delphi?