Как передать значение "IdHTTP1" из одной формы во вторую

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
TIdHTTP *IdHTTP1 = new TIdHTTP;
TIdCookieManager *IdCookieManager1 = new TIdCookieManager;
TStringList *SL= new TStringList;
//---------------------------------------------------------------------------
 
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
    IdHTTP1->CookieManager= IdCookieManager1;
    IdHTTP1->AllowCookies= true;
    IdHTTP1->HandleRedirects=true;
 
    String Url = "http://clubnika.com.ua/home/";
    IdHTTP1->Request->Host = "clubnika.com.ua";
    IdHTTP1->Request->UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:20.0) Gecko/20100101 Firefox/20.0";
    IdHTTP1->Request->Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8";
    IdHTTP1->Request->AcceptLanguage = "uk,ru;q=0.8,en-us;q=0.5,en;q=0.3";
    IdHTTP1->Request->AcceptEncoding = "gzip, deflate";
    IdHTTP1->Request->Referer = "http://clubnika.com.ua/home/";
    IdHTTP1->Request->Connection = "keep-alive";
 
    SL->Add("country=ua");
    SL->Add("login="+Edit1->Text);
    SL->Add("password="+Edit2->Text);
    SL->Add("signin=%D0%92%D0%BE%D0%B9%D1%82%D0%B8");
 
    try
    {
        IdHTTP1->Post(Url,SL);
    }
 
    catch(EIdException &E)
    {
       ShowMessage("Ошибка:\n\""+E.Message+"\"");
    };
 
    SL->Clear();
 
    if(IdHTTP1->Response->ResponseText == "HTTP/1.1 200 OK")
    {
        ShowMessage("Неверный логин/пароль");
    }
    else
    {
        Form1->Visible = true;
        Form2->Visible = false;
    }
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    String Url1 = "http://clubnika.com.ua/mail/?id=80562";
    IdHTTP1->Request->Referer = "http://clubnika.com.ua/mail/?id=80562";
 
    SL1->Add("message="+ TIdURI::PathEncode(Memo1->Text));
 
    IdHTTP1->Post(Url1,SL1);
    SL1->Clear();
}