[roman]

Lo curioso es que eso debería fallar aún fuera del timer. Para recorrer una cadena debes hacerlo desde 1:

Código Delphi [-]
for I := 1 to Length(FVal) do
begin
  ...
end;

// Saludos