Парсинг токена при post запросе

implementation
 
{$R *.dfm}
 
function Pars(T_, ForS, _T:string):string;
var a, b:integer;
begin
Result := '';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_, ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then
Result:=Copy(ForS, 1, b - 1);
end;
 
constructor TNewThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
end;
 
procedure TNewThread.Execute;
  var
    CurAcc:integer;
    data:Tstringlist;
    HTTP: TIdHTTP;
    SSL : TIdSSLIOHandlerSocketOpenSSL;
    SOCKS: TIdSocksInfo;
    s:string;
    cook:TIdCookieManager;
    html1,html, token:string;
  begin
  while Work do
  begin
   CS.Enter;
   Inc(Acc);
    if Acc<Accounts.Count then CurAcc:=Acc else Work:=false;
   inc(tp);
    if tp=Proxy.Count-1 then tp:=0;
   CS.Leave;
   if Work then
    begin
     HTTP := TIdHTTP.Create(nil);
     http.HandleRedirects:=false;
     http.AllowCookies:=true;
     SSL:=TIdSSLIOHandlerSocketOpenSSL.Create;
     ssl.Port:=433;
     http.ReadTimeout:=form1.SpinEdit2.Value*1000;
     http.Request.UserAgent:=UserAg[random(10)];
      if Proxy.Text = '' then sleep(0) else
      if form1.ComboBox1.Text='http/https' then
    begin
     IP:=Copy(Proxy[tp], 1, Pos(':',Proxy[tp])-1);
     PORT:=Copy(Proxy[tp], Pos(':', Proxy[tp])+1, Length(Proxy[tp]));
     http.ProxyParams.ProxyServer:=IP;
     http.ProxyParams.ProxyPort:=strtoint(PORT);
    end;
      if form1.ComboBox1.Text='socks4' then
    begin
     SOCKS:=TIdSocksInfo.Create;
     SOCKS.Version:=svSocks4;
     SOCKS.Host:=Copy(Proxy[tp],1,Pos(':',Proxy[tp])-1);
     SOCKS.Port:=StrToInt(Copy(Proxy[tp],Pos(':',Proxy[tp])+1,Length(Proxy[tp])));
     SOCKS.Authentication:= saNoAuthentication;
     SSL.TransparentProxy:=SOCKS;
    end;
      if form1.ComboBox1.Text='socks5' then
    begin
     SOCKS:=TIdSocksInfo.Create;
     SOCKS.Version:=svSocks5;
     SOCKS.Host:=Copy(Proxy[tp],1,Pos(':',Proxy[tp])-1);
     SOCKS.Port:=StrToInt(Copy(Proxy[tp],Pos(':',Proxy[tp])+1,Length(Proxy[tp])));
     SOCKS.Authentication:= saNoAuthentication;
     SSL.TransparentProxy:=SOCKS;
    end;
      if pos(':', Accounts[CurAcc])<>0 then
     begin
      FAcc:=Copy(Accounts[CurAcc], 1, Pos(':',Accounts[CurAcc])-1);
      FPas:=Copy(Accounts[CurAcc], Pos(':', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));
    end
     else
      begin
      FAcc:=Copy(Accounts[CurAcc], 1, Pos(';',Accounts[CurAcc])-1);
      FPas:=Copy(Accounts[CurAcc], Pos(';', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));
    end;
 
     http.IOHandler:=ssl;
     HTML:=HTTP.Get('http://site.ru/login.html'); 
     token:=Pars('name="TOKEN" value="',HTML,'"');
     data:=tstringlist.Create;
     data.Add('TOKEN='+token);
     data.Add('email='+FAcc);
     data.Add('password='+FPas);
      try
     html1:=HTTP.Post('http://site.ru/login.html', data);
     Rez:=0
      except
       if Pos('class="close" href="/logout"', html1)<>0 then

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdIOHandler, IdIOHandlerSocket,
  IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, Vcl.StdCtrls, sMemo, sButton, sEdit;
 
type
  TForm1 = class(TForm)
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    sButton1: TsButton;
    sMemo1: TsMemo;
    sEdit3: TsEdit;
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    procedure sButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function Pars(T_, ForS, _T:string):string;
var a, b:integer;
begin
Result := '';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_, ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then
Result:=Copy(ForS, 1, b - 1);
end;
 
procedure TForm1.sButton1Click(Sender: TObject);
var
    HTTP: TIdHTTP;
    SSL : TIdSSLIOHandlerSocketOpenSSL;
    data:tstringlist;
    HTML, html1, token:string;
begin
     HTTP := TIdHTTP.Create(nil);
     HTTP.HandleRedirects:=true;
     SSL:=TIdSSLIOHandlerSocketOpenSSL.Create; 
     HTTP.IOHandler:=ssl;
 
     try
     HTML:=HTTP.Get('http://oyy.ru/login.html'); 
     except
     end;
 
     token:=Pars('name="XID_TOKEN" value="',HTML,'"');
     sEdit3.Text:=token;   
     data:=tstringlist.Create; 
     data.Add('XID_TOKEN='+token);
     data.Add('email='+sEdit1.Text); 
     data.Add('password='+sEdit2.Text);  
 
      try
     html1:= HTTP.Post('http://oyy.ru/login.html', data);
     if Pos('<a class="close" href="/logout" title="Выход">Выход</a>', html1)<>0 then 
     sMemo1.Lines.Add('Успешно авторизовались')  
     else
     sMemo1.Lines.Add('Не авторизовались') 
     except
     sMemo1.Lines.Add('Ошибка авторизации')
     end;
     Http.Free;
     data.Free;
     end;
 
end.

if form1.ComboBox1.Text='http/https' then