String zerschneiden und ohne leerzeichen anzeigen lassen=> Fehler

[HofiderKill]

So ich bins schon wieder,

Code:

m:= Copy(ListBox1.items[i],1,Pos(inttostr(Length(ListBox1.Items[i])-2),ListBox1.items[i])-1);

Code:

    von := LBmusiktitel.Items[i];
    nach :=p+m+'\'+LBSongs.items[i] ;
      showmessage(m);
      showmessage(inttostr(tmp));
      showmessage(von);
      showmessage(nach);
 copyfile(PChar(von),PChar(nach), true);

da in der Listbox1 die elemente mit einem leerzeichen dahinter stehen und ich so die dateien nicht kopieren kann mit einem leerzeichen dazwischen hätte ich mir gedacht so wie im obrigen code zu lösen... doch wenn ich mir m in einer message ausgeben lasse ist dieser wert leer.... ich dachte mir das er mir so den namen ohne leerzeichen anzeigt, also bis zum letzten buchstaben oder zahl...

hat wer eine idee wieso das nicht so funktioiert?