С парсом

[gum_classis]

Научите парсить информацию их сайтов вот пример кода авторизации из которого нужна вытащить текст "" Логин : ТУТ ЛОГИН КОТОРЫЙ ДОЛЖЕН БЫТЬ
data:=TStringList.Create;
data.Add('loginForm_default_username='+UTF8Encode( Edit1.Text));
data.Add('loginForm_default_password='+UTF8Encode( Edit2.Text));
data.Add('loginForm_default_login_submit=Вход');
html:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', data);
html1:=Copy(html,Pos('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+Edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',html),length(html));
Delete(html1,Pos('&ref_pid',html1)-14,length(html1));
html2:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи](html1);
if Pos('exitURL', html)<>0 then
begin
Edit4.Enabled:=true;
Edit5.Enabled:=true;
Edit6.Enabled:=true;
Edit7.Enabled:=true;
Edit8.Enabled:=true;
Button2.Enabled:=true;
Button3.Enabled:=true;
end

[Skuka.95]

я использую регЭксп для парсинга, ищи тут где то пример кода как им парсить был (тема называлось как парсить 2 строки за 1 раз (или как то так))

[gum_classis]

s:=pars('req=',html,'&ref_pid');

То есть начиная парсить с reg= по &ref_pid ?