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