Al parecer tu error esta en que quieres acceder a un 'Strings' que no existe. Puedes probar con:
MiMemo->Lines->Add("LISTO");
Seguramente sabes que con esto estas dando de alta -por decirlo así- una nueva línea en tu Memo->Lines.
La Asignacion directa que estas dando a "Strings" es correcta, a menos que el valor de 'i' este dando un número de índice no válido -no existente en el Strings[]-. Puede que por ahí este el error.