بدست آوردن نام فايل

[behzadzh]

با سلام به همه دوستان
من در حال نوشتن يه برنامه کوچک هستم که در قسمتي از اون نياز به ثبت فقط نام و پسوند فايل انتخاب شده توسط OpenDialog در بانک اطلاعاتي دارم ولي هر کاري کردم نام و پسوند به همراه آدرس کامل رو بدست آوردم مي خواستم کمکم کنيد تا نام و پسوند رو از قسمت FileName ابزار OpenDialog جدا کنم
با تشکر فراوان

[loo30fer]

If OpenDialog1.Execute then
Path:= ExtractFileName(OpenDialog1.FileName);
ShowMessage(Path);