Probleme mit dem copy() Befehl

[ChrisH90]

Hallo Leute, ich weis nicht mehr was ich noch machen soll. Folgendes Problem. Mit einem Handscanner lese ich folgenden String ein: abc123|def456;
Dabei ist die Pipe das Trennzeichen und das Semikolon das Endzeichen. Also möchte ich die zwei Werte trennen.
Auftragsnummer: abc123
Seriennummer: def456

Der Scanner erkennt statt der Pipe nur %Q aber ist ja auch kein Prob. Meine Source sieht folgendermassen aus:

in meinem Fall ist der Lesestring abc123%Qdef456;

Delphi-Quellcode:

Auftragsnummer_STRING:=copy(Lesestring,1,pos('%',Lesestring)-1);
Seriennummer_STRING:=copy(Lesestring,pos('Q',Lesestring)+1,pos(';',Lesestring)-1);

Soweit so gut. Normalerweise müsste er mir das richtige raushauen. Aber was macht er:
Auftragsnummer: abc123
Seriennummer: def456;

Das Semikolon sollte aber doch fehlen oder? Ich habe auch schon andere Endezeichen ausprobiert, ging auch nicht. Auch die Bezeichnung als Sonderzeichen #$27+#$59+#$27 funktioniert nicht.

HILFEEEEEE

[edit=thomasdrewermann]Delphi Tags eingefügt Mfg, thomasdrewermann[/edit]