Arreglo!!!

[Casimiro Noteví]

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í:

ini:= dbgrid2.DataSource.DataSet.Fields[0].Value;

¿cuánto vale esa variable 'ini'?
Luego asignas al array, en la posición 'fin' un valor.

resultx[fin]:=floattostr(Xutm)

Pues bien, como al principio has declarado el array

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