No entiendo muy bien qué es lo que estás haciendo pero vamos a ver. Si la cadena tiene menos de ocho letras, digamos 5, entonces PA[6], PA[7], PA[8] contendrán basura, es decir, cualquier cosa que en esos momentos haya en la memoria. Sencillamente no puedes acceder a elementos inexistentes de la cadena.
En lugar de eso lo que puedes hacer es usar la función Copy:
Código Delphi
[-]
L1 := Copy(PA, 1, 1);
L2 := Copy(PA, 2, 1);
L3 := Copy(PA, 3, 1);
L4 := Copy(PA, 4, 1);
L5 := Copy(PA, 5, 1);
L6 := Copy(PA, 6, 1);
L7 := Copy(PA, 7, 1);
L8 := Copy(PA, 8, 1);
ya que ésta te devolverá una cadena vacía en caso de que los parámetros no correspondan a ninguna porción de la cadena.
// Saludos