[uberchel]

Узнаём, имя файла с расширением!

Код:

Label1.Caption:= ExtractFileName(OpenPictureDialog1.FileName);