Delphi - recorrer un bdgrid

Necesito recorrer un dbgrid y meter en una variable cada vez el valor en una variable para posteriores calculos, para ello tengo:

for y:=0 to DBGridPruebas.FieldCount-1 do
for x:=0 to DBGridPruebas.Columns.Count-1 do
begin
valor:=DBGridPruebas.Columns.Items[x].Field.AsString;
end;

Pero no me funciona porque solamente la iteracion se hace una vez y solo consigo el nombre del primer elemento ¿alguien puede ayudarme?
Gracias

Bueno todo DBGrid esta asociado con un DataSet (un Query o un Table). Bastarias con que recorras el dataset correspondiente.

Por ej.:
...
DBGRid1.DataSource.DataSet.First;
while not DBGrid1.EOF do
begin
// ... Procesamiento
valor:= DBGrid1.DataSource.DataSet.FieldByName('campo').ASString;
....
end;

Espero te sirva...

...
DBGrid1.DataSource.DataSet.First;
while not DBGrid1.DataSource.DataSet.EOF do
//Aqui arriba es donde me equivoque
begin
// ... Procesamiento
valor:= DBGrid1.DataSource.DataSet.FieldByName('campo').ASString;
....

El grid estará conectado a un DataSource y este a una tabla. Recorre la tabla que es la que contiene los datos visualizados en el grid:

MiTabla.First;
While not MiTabla.eof do;
begin
//coges los valores de los campos que desees
sNombre := MiTablaNOMBRE.AsString;
iSueldo := MiTablaSUELDO.AsInteger;
...
//siguiente registro
NiTabla.Next;
end;

Muchas gracias por la ayuda