En tu código declaras 'fin' y le das el valor cero.
Luego haces un bucle 'for' desde 0 (el valor de fin) hasta 'ini', que lo sacas de aquí:
Código:
ini:= dbgrid2.DataSource.DataSet.Fields[0].Value;
¿cuánto vale esa variable 'ini'?
Luego asignas al array, en la posición 'fin' un valor.
Código:
resultx[fin]:=floattostr(Xutm)
Pues bien, como al principio has declarado el array
Código:
resultx : array[1..100] of string;
si la variable 'fin' tiene un valor menor de 1 o mayor de 100 ---> ¡¡¡crack!!!
y por supuesto, si la declaras sin tamaño... no puede hacerse eso.
Tienes varias soluciones, pero para empezar te hago una pregunta:
¿qué valores mínimo y máximo puede resultar de aquí: dbgrid2.DataSource.DataSet.Fields[0].Value