function GetFileNameURL(URL:string):string;
begin
  while Pos('/',URL)>0 do Delete(URL,1,Pos('/',URL));
  Result:=URL;
end;

Par exemple:
l'URL http://www.site.com/page/image.jpg retournera image.jpg