delphi怎么获取下载链接文件名

delphi如何获取下载链接文件名
比如 www.baidu.com/text/down/1.exe
我只想要获取1.exe其它都不要
[解决办法]
分隔字符串，以最后一个斜杠 / 作为标记进行截取，取右边的字符就是 1.exe

var
 str:string;
begin
 str:='www.baidu.com/text/down/1.exe';
 str:=StringReplace(StrRScan(PChar(str),'/'), '/', '',[rfReplaceAll]);
 ShowMessage(str);