idHTTP компонент,авторизация

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *SL= new TStringList;
 
IdHTTP1->CookieManager= IdCookieManager1;
IdHTTP1->AllowCookies= true;
 
String Url = "http://example.com";
SL->Add("nick=");   
SL->Add("password=");     
SL->Add("page=auth");    
 
try
    {  
      Memo1->Text= IdHTTP1->Post(Url,SL); 
    }
catch(EIdException &E)   // Ловим исключения Indy
    {
       ShowMessage("Ошибка:\n\""+E.Message+"\"");
    };
 
delete SL;
}

void __fastcall TForm5::Button1Click(TObject *Sender)
{
IdHTTP1->Request->UserAgent= "Mozilla/5.0 (Windows NT 6.1; rv:16.0) Gecko/20100101 Firefox/16.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->Connection= "keep-alive";
IdHTTP1->Request->Host= "gandjafarm.com";
TStringList *SL= new TStringList;
 
IdHTTP1->CookieManager= IdCookieManager1;
IdHTTP1->AllowCookies= true;
 
String Url = "http://gandjafarm.com/?auth";
SL->Add("nick=****");   
SL->Add("password=****"); 
//SL->Add("page=auth");     
 
try
    {
      Memo1->Text= IdHTTP1->Post(Url,SL);
       TMemoryStream *MS = new  TMemoryStream;
 IdHTTP1->Get(Url,MS);
 MS->SaveToFile("1212.html");
 delete MS;
 
    }
catch(EIdException &E)   // Ловим исключения Indy
    {
       ShowMessage("Ошибка:\n\""+E.Message+"\"");
    };
 
delete SL;
}