Texte von Listbox1 in ListBox1 teilweise kopieren

[taktaky]

Hallo,

in ListBox1 werden alle Datei im Ordner und auch im Unterordner aufgelistet so z.B.

Code:

Ordner1\index.php
logo.gif
...

Nun möchte ich die Dateinamen von ListBox1 in ListBox2 kopieren (aber ohne den Ordner-Namen sondern nur Filename)
also in ListBox2 so nun sein :

Code:

index.php
logo.gif

Hat jemand eine Idee?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
for i:= 0 to ListBox1.Items.Count -1 do
ListBox2.Lines.Add(' :( ');

end;

<>