Алгоритм поиск текста

[Des]

Имею загруженую html страницу в TMemo.

в html имеем множество строк вида

http://mail.ru/kadabra/buka/adfgadfh/adfhadfh/adfhafh
http://mail.ru/kadabra/baba/adfgadfh/adfhadfh/adfhafh
http://mail.ru/kadabra/vuka/adfgadfh/adfhadfh/adfhafh

Нужно следующее

если в строке http://mail.ru/kadabra/baba/adfgadfh/adfhadfh/adfhafh найдены символы http://mail.ru/kadabra/тогда вырезать http://mail.ru/kadabra/ и все что будет до следующего слеша. в нашем случае http://mail.ru/kadabra/baba/

Заранее благодарен за любую помощь =)

[SERG1980]

Функции Pos, Delete

[Xcopy]

http://www.delphiexpert.ru/view_lesson.php?id=8

[Des]

SERG1980 Спасибо, но Pos и Del очень и очень хилые функции. Вот к примеру я нашел строку из TMemo1, знаю номер символа с которого начинается моя http://mail.ru/kadabra/. На этом вся прелесть Pos заканчивается А мне нужно дальше идти, за слеш, и до первого попавшегося слеша. Но как показать Pos'у что нужно идти искать к примеру с 500 символа а не с первого

var
found_pos1, found_pos2: Integer;
begin
found_pos1:=Pos('http://mail.ru/kadabra/',Memo4.Text);
found_pos2:=Pos('/',??????); <----Как его заставить искать от found_pos1?
end;

[Квэнди]

copy,pos,posex,+ряд функций из strutils решают 99% задач разбора текста.

<----Как его заставить искать от found_pos1?

posex+F1

[Des]

огромное спасибо =)