برگرداندن نام فایل از طریق opendialog

سلام
دوستان من در برنامه ام یکopen dialog دارم(که این open dialog فقط فایلهای jpg را نمایش میده)و می خوام از طریق open dialog نام فایل به همراه پسوندش را بگیرم نه آدرس کامل که با خاصیت file name بر میگرده مثلا اگه یه عکس در درایوe و در پوشه image هست فقط نام عکس را بهم بده و در یک متغیر رشتهای بریزم
ممنون

می تونی از این کد استفاده کنی :
procedure TForm1.Button1Click(Sender: TObject);
var
FileName:String;
i:Integer;
begin
if OpenDialog1.Execute then
begin
FileName:=ReverseString(OpenDialog1.FileName);
i:=PosEx('\',FileName);
FileName:=Copy(ReverseString(FileName),length(File Name)-(i-2),i+1);
ShowMessage(FileName);
end;
end;

البته راه راحت تری هم هست :

procedure TForm1.Button1Click(Sender: TObject);

var

FileName:String;

begin

if OpenDialog1.Execute then

FileName:=ExtractFileName(OpenDialog1.FileName);

end;

اگه می خواهی پسوندشو هم بگیری از دستور ExtractFileExt استفاده کن

البته اگه میخوای با عکس کار کنی بهتره با Open PictureDialog کار کنی