IdHTTP - ошибка Get запроса

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo2->Clear();
//ПОЛУЧАЮ СПИСОК ВСЕХ ЗАДАЧ
HWND h = ::GetTopWindow(0 );
                while ( h )
                {
                  DWORD pid;
                  AnsiString TITLE=""; AnsiString TITLE2="";
                  DWORD dwTheardId = ::GetWindowThreadProcessId( h,&pid);
                  TCHAR title[255];
                  GetWindowText(h,title,255);
                      if (IsWindowVisible(h))
                      {
                      TITLE = title;
                          if (TITLE!="Пуск" && TITLE!="" && TITLE!="Program Manager")
                              {
                                  Memo2->Lines->Add("> "+TITLE);
                              }
                      }
 
                  h = ::GetNextWindow( h , GW_HWNDNEXT);
                }
 
//УДАЛЯЮ КОПИИ
                for (int i = 0; i <= Memo2->Lines->Count; i++)
                {
                        for (int j = 0; j <= Memo2->Lines->Count; j++)
                        {
                                if (Memo2->Lines->Strings[i] == Memo2->Lines->Strings[j])
                                {
                                    if (i!=j)
                                    {
                                        Memo2->Lines->Delete(j);
                                    }
                                }
 
                        }
                }
}

CurrentALL = Now();
REQUEST = IdHTTP1->Get(TIdURI::URLEncode(VK_API + METHOD_MSGSENG + PARAMETER_user_id + ID + PARAMETER_message + "> " + CurrentALL + "\n" + Memo2->Text + PARAMETER_attachment_photo + ID + "_" + PHOTO_ID + VK_API_VER_TOKEN + TOKEN));