RÉCUPPÉRER LE NOM DU FICHIER D'UNE URL

    function Right(str: string; numchars:integer):string;
    begin
    result := copy(str, (length(str)-numchars)+1, numchars);
    end;
    function Left(str: string; numchars:integer):string;
    begin
    result := copy(str, 0, numchars);
    end;

Function GetFilefromURL (URL:string):string;
var
sl : string;
st : string;
i : integer;
begin

 i := 0     ;
while not ((st) = ('/')) do
 begin
        i := i + 1                   ;
        sl := left(URL  , length(URL)- i      )  ;
        st := (right(sl,1));
 end;
   GetFilefromURL := right(URL,i);
end;