Авторизация на сайте в C++ Builder

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 IdHTTP1->Request->UserAgent= "Mozilla/5.0 (Windows NT 10.0; WOW64; rv:42.0) Gecko/20100101 Firefox/42.0";
 IdHTTP1->Request->Accept= "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8";
 IdHTTP1->Request->AcceptLanguage= "ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3";
 //IdHTTP1->Request->AcceptEncoding= "gzip, deflate";
 //IdHTTP1->Request->Referer= "http://";
 IdHTTP1->Request->Connection= "keep-alive";
 TStringList *SL= new TStringList;
 
 IdHTTP1->IOHandler = IdSSLIOHandlerSocketOpenSSL1;
 IdHTTP1->CookieManager= IdCookieManager1;
 IdHTTP1->AllowCookies= false;
 IdHTTP1->HandleRedirects = false;
 
 String Url = "https://socialtools.ru/";
 SL->Add("username=qwerty");
 SL->Add("password=qwerty123");
 SL->Add("usertype=2");;
 SL->Add("hash=+ hash +");
 SL->Add("key=+ key +");
 SL->Add("login_frm=1");
 SL->Add("remember=1");
 SL->Add("login=Вход");
 
 try
  {
     Memo1->Text= IdHTTP1->Post(Url,SL);
     //Memo1->Text= IdHTTP1->Get(" https://socialtools.ru/st/redirect");
  }
catch(EIdException &E)   // Ловим исключения Indy
 {
    ShowMessage("Ошибка:\n""+E.Message+""");
 };
 delete SL;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdHTTP1WorkBegin(TObject *ASender, TWorkMode AWorkMode, __int64 AWorkCountMax)
 
{ // начало загрузки
ProgressBar1->Max = AWorkCountMax; // размер файла
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdHTTP1Work(TObject *ASender, TWorkMode AWorkMode, __int64 AWorkCount)
 
{ // Ход загрузки
ProgressBar1->Position = AWorkCount; // количество уже закаченных байт
}
//---------------------------------------------------------------------------