Texte von Listbox1 in ListBox1 teilweise kopieren

[Sergej]

function ExtractFileName(const S: FullFileName): string;