Проблема - парсинг

[KREGI]

Нужно достать значение переменной из html строки:

<a href="http://site.ru/login/?logout=1&amp;sid=73906d66f34d0bce69f5c4364f1e79ca" class="mainmenu">бла бла</a>

необходимо достать:
73906d66f34d0bce69f5c4364f1e79ca
делаю так:

function GetSubStr(InputStr, BeginStr, EndStr: String): String;
var
  s: String;
  sp, ep: Integer;
begin
  Result := '';
  if pos(BeginStr, InputStr) <> 0 then
  begin
    sp := pos(BeginStr, InputStr)+length(BeginStr);
    s := copy(InputStr,sp,length(InputStr));
    ep := pos(EndStr,s)-1;
    Result := copy(s,1,ep);
  end;
end;

Вызов:

procedure TForm2.FormCreate(Sender: TObject);
var
s : string;
begin
 s:=IdHTTP1.Get('http://site.ru/index.php');
 Form2.Memo1.Lines.Add(GetSubStr(s,'&amp;sid=','" class="mainmenu">Выход</a>'));
end;

в мемо не чего не выводится

[Pasha_Sh]

делал от руки может каряво

var
buff:string;
begin
buff:='<a href="http://site.ru/login/?logout=1&amp;sid=73906d66f34d0bce69f5c4364f1e79ca" class="mainmenu">бла бла</a>';
delete(buff, Pos('<a', buff), Pos('d=', buff);
delete(buff, Pos('" c', buff), lenght(buff);
memo1.lines.text:=buff;
end;

[KREGI]

это если только эту строку рассматривать, а я немного другое имел ввиду, эта строка в html странице, где еще куча всего, а мне необходимо только значение sid Достать,

[Pasha_Sh]

Сайт напиши

[KREGI]

s:string;
begin
s:=IdHTTP1.Get('http://site.ru/index.php');
delete(s, Pos('<a href="http://site.ru/login/', s), Pos('sid=', s));
delete(s, Pos('" class="mainmenu">', s), length(s));
memo1.lines.text:=s;
end;

по идеи должно работать, но увы... выводит все страницу как я понял

[Pasha_Sh]

Ты можешь сайт сказать?

[KREGI]

Pasha_Sh в личных сообщениях написал тебе.

[Pasha_Sh]

Скинь в личку или сюда исходный код, регестрироваться не хочется.

[KREGI]

вот исходный код

[Pasha_Sh]

var
buff:string;
begin
buff:=idhttp1.get(СЮДА АДРЕС СТРАНИЦЫ);
delete(buff, Pos('<!DOCTYPE', buff), Pos(';sid=', buff);
delete(buff, Pos('" class="mainmenu">Выход', buff), lenght(buff);
memo1.lines.text:=buff;
end;

Теперь покажите какое значение вырезалось!