[[Delphius]]

¡Ouch!
Como se nota que he perdido la práctica con los enumerados!

Entonces modifica a la función por esta otra:

Código Delphi [-]
function GetLaminaInfo(LaminaText: string; Info: integer): string;
var PosIni, PosEnd: integer;
begin
  //preventiva
  PosIni := 0;
  PosEnd := 0;

  // Dependiendo de la info a pedir, calculamos posiciones
  // iniciales y finales
  case Info of
  0: begin
            Posini := 1;
            PosEnd := Pos(' ',LaminaText);
          end;
  1: begin
                 PosIni := Pos(' ',LaminaText) + 1;
                 PosEnd := Length(LaminaText) - Pos(' ',ReverseString(LaminaText)) + 2;
               end;
  2: begin
             PosIni := Length(LaminaText) - Pos(' ',ReverseString(LaminaText)) + 1;
             PosEnd := Length(LaminaText) + 1;
           end;
  end;

  // copiamos el texto que esté comprendido desde PosIni a PosEnd
  result := Copy(LaminaText,PosIni,PosEnd - PosIni);
end;

Y te olvidas del tipo TLaminaInfo, borralo.
Y ya no deberías tener problemas.

Saludos,