Delphi - Separar string y guardar en variable

Mi problema es que quiero guardar a partir de un string, unos valores en variables de modo que:

linea es el string y contiene : "1|aaaaaa|2000|Juan Pérez"

Yo necesito guardar en variables el 2000 y "Juan Pérez"
Como puedo hacerlo?
Gracias de antemano!

Esto es lo que necesitas:
http://www.swissdelphicenter.ch/torry/showcode.php?id=333
en tu ejemplo quedaria de la siguiente forma

No me reconoce GetToken

No se si entraste al enlace que te dejé, ahi viene la definición de la función, la copias y la pegas en tu unidad, y ya podras usarla