Retirar última barra da URL...

[ZueRa 0]

Pessoal, estou com uma dúvida no meu novo source q to fazendo... a função dele é assim:abre-se uma lista de sites variadosdentro dessa lista existem várias URL's dessa forma "http://www.site.com/pasta1/pasta2/pastax[...]"A minha dúvida é, como posso fazer para que, ao apertar um botão, todas as URL's sejam cortadas na última barra, ou seja, ficando assim "http://www.site.com/" ?Alguém poderia m ajudar ?Grato, vlw !

[bdexterholland 0]

i:=length(url);repeat    dec(i);until (url[i]='\') or (url[i]='/');for j:=1 to i-1 do   url2[j]:=url[j];