Kopiering af en del af en string

Jeg har lavet et lille program, som har en streng der hedder Line. Line kunne f.eks. have følgende værdi : Line := 'Kim|Hansen';

Jeg har løber så strengen igennem for, at finde ud af hvor ”|” forefindes. I dette eksempel vil det så være på position 4, som bliver gemt i I. Dvs. fra Line[1] til Line[I-1] skal kopiers ind i en streng, som jeg kalder ForNavn. Line[I+1] til Length(Line) skal kopiers ind i en streng som jeg kalder EfterNavn

Findes der en smart funktion, som gør ovenstående???

Jeg forestiller mig noget i stil med :
  ForNavn := Copy(Line,0,(I-1));
  EfterNavn := Copy(Line,(I+1),Length(Line));

Har du et eksempel?

Eksemplet er fiktivt, men meningen i mit program er der.

VH

Oergaard