String Zerlegen

[Asatru]

Hab da mal ne Frage wieso folgendes nicht funktioniert oder ob nur mein Delphi spinnt...

Delphi-Quellcode:

FindFiles (Label71.Caption, 'project_1.**.exe', True, ListBox3.Items);
project := ListBox3.Items.Strings[0];
pos1 := Pos('project_', project);
pos1 := pos1 + 8;
pos2 := Pos('.exe', project);
Label73.Caption := copy(project, pos1, pos2 - pos1);

der Normale String lautet zum Beispiel

Code:

C:\Program Files (x86)\project\_Germany_\project_1.06.exe

als ausgabe bekomme ich aber

Code:

ram Files (x86)\project\_Germany_\project_1.06

wieso macht er da den Fehler, Hinterlege ich bsp: den Pfad direkt macht er es ohne probleme!

MFG