Ahora bien, si lo que deseas es siempre copiar la parte de la cadena que se encuentra entre los dos caracteres "|" lo que puedes hacer es:
1. Copiar la cadena en una variable temporal.
2. Usar la función Pos para encontrar la posición del primer "|", digamos i := Pos('|', Cadena).
3. Borrar de la cadena temporal los primeros i carateres: Delete(Cadena, 1, i)
4. Encontrar la posición del siguiente "|", digamos f := Pos('|', Cadena)
5. Copiar hasta esa posición: Resultado := Copy(Cadena, 1, f -1)
// Saludos
|