[diagodd]

Привет,делаю авторизацию для сайта,сильно не пинайте (моя первая программа) есть сайт, при входе присваивается jsessionid (возможно я совсем не правильно делаю) пытаюсь спарсить jsessionid и добавить к ссылке,потом отослать маил и пароль,ничего не получается, подскажите где проблема.

Код:

     S:=HTTP.Post('http://site.ru/login/', data);
      RegExp := TRegExpr.Create;
      RegExp.InputString := S;
      RegExp.Expression := 'Тут парсю' ;
        if RegExp.Exec then
      repeat
       begin
       HTTP.Request.CustomHeaders.Add('jsessionid:'+RegExp.Match[1]);
      end;
      until not
      RegExp.ExecNext;
      RegExp.Free; 


      Data:=Tstringlist.create;
      Data.Add('user=' + Edit1.Text);
      Data.Add('password=' + Edit2.Text);
      HTTP:=TIdHTTP.create;
      HTTP.HandleRedirects:=True;
     try
      S:=Http.Get('http://site.ru/login/login/'+RegExp.Match[1]);
      l:=-1;
     except
      if Pos('OK: LoginOk=', HTTP.Response.RawHeaders.Text)<>0 then
       l:=1
      else
       l:=0;
     end;