Ввести слово на сайте POST-запросом

// авторизация
void __fastcall TForm1::ButtonLoginClick(TObject *Sender)
{
 try
 {
  TMemoryStream *MS  = new TMemoryStream;
  TStringList *SL = new TStringList;
  // данные для входа берутся из файла login.txt в той же папке, что и программа
  RichEdit->Lines->LoadFromFile(ExtractFilePath(ParamStr(0)) + "\login.txt");
  // получаем данные
  SL->Add("Page=https://portal.sf.mail.ru/skyforgenews");
  SL->Add("Login=" + Trim(RichEdit->Lines->Strings[0]));
  SL->Add("Domain=" + Trim(RichEdit->Lines->Strings[1]));
  SL->Add("Password=" + Trim(RichEdit->Lines->Strings[2]));
  SL->Add("saveauth=1");
  // отправляем запрос
  HTTP->Request->Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8";
  HTTP->Request->UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:47.0) Gecko/20100101 Firefox/47.0";
  HTTP->Post("https://auth.mail.ru/cgi-bin/auth", SL, MS);
  // далее идет получение токена
  // он нужен для доступа к страницам со списком участников
  MS->Position = 0;
  SL->LoadFromStream(MS);
  RichEdit->Text = UTF8ToString(SL->Text);
  int j;
  for (j = 0; j < RichEdit->Lines->Count; j++)
  {
    String str1 = "<meta content=\"", str2 = "\" name=\"csrf_token\"/>";
    int pos = RichEdit->Lines->Strings[j].Pos(str1), pos2 = RichEdit->Lines->Strings[j].Pos(str2),
        offset = str1.Length();
    if (pos && pos2)
    {
      // вот он, токен моей мечты :-)
      token = Trim(RichEdit->Lines->Strings[j].SubString(pos + offset, pos2 - pos - offset));
      break;
    }
  }
 
  // проверка на правильность авторизации
  bool ok = 1;
  for (j = 0; j < RichEdit->Lines->Count; j++)
    if (RichEdit->Lines->Strings[j].Pos("Возможно, вы ошиблись в вводе пароля или заходите в ящик из необычного места"))
    {
      ok = 0;
      break;
    }
 
  if (ok)
  {
    ButtonGetData->Enabled = 1;
    ButtonLogin->Enabled = 0;
  }
  else
    MessageBox(Application->Handle, L"Проверьте правильность данных для входа в файле login.txt.", L"Ошибка входа", MB_OK+MB_ICONWARNING);
 
  delete MS;
  delete SL;
 }
 catch (EIdException &E)  // в случае ошибки получения данных
 {
  MessageBox(Application->Handle, String("\""+E.Message+"\"\n\nВозможно, отсутствует подключение\nк интернету или нет доступа к сайту.").c_str(), L"Ошибка", MB_OK+MB_ICONWARNING);
 }
}