Mensagem de Erro: quot;Grid Index Out of Rangequot;

Olá pessoal...

Uso o BDE, tabelas PARADOX (urgh!). Tenho o trecho de código que está descrito abaixo (resumido) e, quando executo, o programa dá a seguinte mensagem:

´Grid Index Out of Range´...


.
.
.
DataModule.Table1.First;
While not DataModule.Table1.Eof do
begin
Total := Total + DataModule.Table1VALOR.Value;
DataModule.Table1.Next;
end;
.
.
.

Se algúem puder ajudar-me, agradeço antecipadamente...

Ludini
Araraquara-SP