Авторизация на сайте с использованием IdHTTP

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    IdHTTP1->Request->Host= "auth.mail.ru";
    IdHTTP1->Request->UserAgent=
        "Mozilla/5.0 (Windows NT 5.1; rv:21.0) Gecko/20100101 Firefox/21.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->Referer=
        "Referer: http://e.mail.ru/cgi-bin/login?";
 
    String Text = "http://e.mail.ru/cgi-bin/login?";
    RichEdit1->Text=IdHTTP1->Post(Text,Memo1->Lines);
 
    RichEdit2->Lines->Add(IdHTTP1->Response->ResponseText);
    RichEdit2->Lines->Add(IdHTTP1->Response->RawHeaders->GetText());
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    Memo1->Lines->Add("page=&post=&login_from=&lang=&setLang=&");
    Memo1->Lines->Add("Login=this_my.mylo&");
    Memo1->Lines->Add("Domain=mail.ru&");
    Memo1->Lines->Add("Password=**********&");
    Memo1->Lines->Add("saveauth=1&");
    Memo1->Lines->Add("new_auth_form=1");
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    IdHTTP1->CookieManager = IdCookieManager1;
    IdHTTP1->AllowCookies = true;
    IdHTTP1->Request->Host= "auth.mail.ru";
    IdHTTP1->Request->UserAgent=
        "Mozilla/5.0 (Windows NT 5.1; rv:21.0) Gecko/20100101 Firefox/21.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->Referer=
        "http://mail.ru/";
 
    String Text = "http://e.mail.ru/cgi-bin/login?";
    TStringList *strParams = new TStringList;
    //strParams->Add("page="); strParams->Add("post=");
    //strParams->Add("login_from="); strParams->Add("lang=");  strParams->Add("setLang=");
    strParams->Add("Login=this_my.mylo"); strParams->Add("Domain=mail.ru");
    strParams->Add("Password=*********");
 
    RichEdit1->Text=IdHTTP1->Post(Text,strParams);
    RichEdit2->Lines->Add(IdHTTP1->Response->ResponseText);
    RichEdit2->Lines->Add(IdHTTP1->Response->RawHeaders->GetText());
}