Получение результата после POST запроса

TStringList *list = new TStringList;
    TStringList *s = new TStringList;
    list->Add("uin="+Edit1->Text);
    list->Add("method=first");
    list->Add("notificationtype=addedyou");
    s->Text = IdHTTP1->Post("http://icq-inviz.ru",list);
    Memo1->Text = s->Text;
    if(s->Text.Pos("не в сети"))
    {
        Label1->Font->Color = clRed;
        Label1->Caption = Edit1->Text + " не в сети";
    }
    else
    {
 
        Label1->Font->Color = clGreen;
        Label1->Caption = Edit1->Text + " в сети";
    }
    delete list;
    delete s;

#include <IdBaseComponent.hpp>
#include <IdComponent.hpp>
#include <IdHTTP.hpp>
#include <IdTCPClient.hpp>
#include <IdTCPConnection.hpp>
#include <IdCookieManager.hpp>
 
#include <memory>
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// POST
// [url]http://icq-inviz.ru/check[/url]
// uin=24544655
// & method=first
// & notificationtype=addedyou
 
std::auto_ptr<TIdHTTP> IdHTTP2(new TIdHTTP(NULL) );
std::auto_ptr<TIdCookieManager> IdCookieManager2(new TIdCookieManager(NULL) );
std::auto_ptr<TStringList> SL(new TStringList);
 
IdHTTP2->CookieManager= IdCookieManager2.get();
IdHTTP2->AllowCookies= true;
 
String Url = "http://icq-inviz.ru/check";
 
SL->Add("uin=24544655");
SL->Add("method=first");
SL->Add("notificationtype=addedyou");
 
try{   Memo1->Text= IdHTTP2->Post(Url,SL.get() );  }
catch(EIdException &E)   // Ловим исключения Indy
        {
             ShowMessage("Ошибка:\n\""+E.Message+"\"");
        };
}
//---------------------------------------------------------------------------