[Gman]

Можно так:

Код:

.........
var put:string;
.........
put:=OpenDialog1.FileName;
ListBox1.Items.Add(ExtractFileName(Put));