SÉLECTIONNER UNE PARTIE D'UNE STRING

var
   Taille, i: integer;
   url, chaine2: string;

begin
   url:= Edit1.Text;
   Taille:= Length(url); //on compte le nbre de caracteres de l'url

   for i:= Taille downto 0 do //on décompte jusqu'a 0
      begin
         if url[i] = '/' then //on regarde si on rencontre / pendant le décompte.
            begin
            chaine2:= Copy(url, i + 1, Taille); //si oui, on copie la chaine
            ShowMessage(chaine2);                  //entre i+1 et la fin
            Exit; // on sort pour arreter au 1er / rencontré.
            end;
      end;

end;