Du benutzt die Copy function falsch:
es heißt copy(sourcestring,anfangsposition,length);
D.h. als letztes Argument übergibst du grade die position von deinem Endzeichnen, du musst aber in wirklichkeit die anzahl der Zeichen übergeben die ab deiner Anfangsposition kopiert werden sollen.
D.h. es muss so oder so ähnlich (+/-1) aussehen:
Delphi-Quellcode:
Anfangsposition:=Pos('/', Line)+1;
AnzahlAnZeichen:=(Pos(',', Line)-1)-Anfangsposition;
User:= Copy(Line, Anfangsposition,AnzahlAnZeichen);