problema extraño con ciclo for

[Johnny Q]

muchas gracias por sus respuestas, probe con ambas respuestas y Seoane tiene razón, lo que no entiendo es porque si tengo un codigo como el siguiente el for no funciona

for i := 0 to 3
begin
  if valor <> 0 then
    Query1CODIGO.value := miarreglo[i].valor;
end;

en donde miarreglo es un arreglo de tipo Record.