"Pos"-Befehl Fehler beim Auslesen

[gizzy]

Beim Auslesen von vorhandenen Strings die durch eine Datei in mein Array eingelesen werden soll, kommen falsche Strings am Ende raus:

(Ohne Array und bla bla)

Delphi-Quellcode:

Fullname:='text - beispiel ~ wort';  //Der String der zerlegt werden soll!

Fulllen:=length(Fullname);
Pos1:=pos('-',Fullname);
Pos2:=pos('~',Fullname);

nach1:=Pos1 - 2;
vor2 :=Pos1 + 1;
nach2:=Pos2 - 2;
vor3 :=Pos2 + 1;

Intr:= Copy(Fullname,0,nach1);
tit:=  Copy(Fullname,vor2,nach2);
Alb := Copy(Fullname,vor3,fulllen);

Als ergebnis gibt es für
Intr: "text"
tit: " beispiel ~ wor"
Alb: " wort"

Obowhl eigentlich das rauskommen sollte:
Intr:"text"
tit: "beispiel"
Alb: "wort"

Wo allerdings der fehler liegen "sollte", weiß ich nicht. Bei "tit" haben die Variablen vor2 und nach2 die Richtigen Zeichenpos. aber trotzdem nimmt copy mehr Zeichen raus.

Ich hoffe, dass jemand weiterhelfen kann :)
Viele Grüße
gizzy