Помогите с регулярным выражением

← →
Zahar (2004-12-08 23:17) [0]

Нужно извлечь путь к файлу из URL.
Дано:
http://www.myhost.com/folder/script/file.cgi?param=value
Хочу извлечь:
http://www.myhost.com/folder/script/

← →
GuAV © (2004-12-08 23:40) [1]

LastDelimiter

← →
Zahar (2004-12-09 03:21) [2]

> LastDelimiter

Почему-то мне это ничего не говорит :(

← →
GanibalLector © (2004-12-09 03:27) [3]

>Почему-то мне это ничего не говорит :(
А так :
var s:string; begin s:="ttp://www.myhost.com/folder/script/file.cgi?param=value"; delete(s, LastDelimiter("/",s)+1,length(s)-LastDelimiter("/",s)+1); Caption:=s; end;

или так:
var s:string; begin s:="http://www.myhost.com/folder/script/file.cgi?param=value"; Caption:=Copy(s,1,LastDelimiter("/",s)); end;
так чуток короче и понятней ;)

Помогите с регулярным выражением Найти похожие ветки