extract subdirectory name

[mijack]

let's suppose this :

Delphi-Quellcode:

[b]Label1.caption :='c:\Folfer1\file1'[/b]

i want to dispaly :

label2.caption:=File1    label3.caption:=' nothing to display  '


[b]Label1.caption :='c:\Folder1\Folder2\file1'[/b]

i want to dispaly :

label2.caption:=File1 label3.caption:='repertoire2\'