مشخص نمودن پسوند و نام فایل در Opendialog

[imanpadid]

با سلام خدمت اساتید محترم
اگه ممکنه منو راهنمایی کنید .من می خوام توی OpenDialog زمانی که اجرا می شود نام فایل و پسوند فایلو پیدا کنه و روی دو تا Label نمایش دهد .با توجه به اینکه پسوند فایل ممکنه از سه حرف بیشتر باشد .:متفکر:
مشخصه Opendialog.filename کل مسیر فایلو میده.

[Mask]

if OpenDialog1.Execute then
Edit1.Text:=ExtractFileName(OpenDialog1.FileName);

[BORHAN TEC]

نام فایل که با دستور زیر بدست میاد:
ExtractFileName(OpenDialog.FileName);
پسوند هم با دستور زیر بدست میاد:
ExtractFileExt(OpenDialog.FileName);