СМС. Заполнить форму значениями номер и текст и отправить сообщение.

void __fastcall TForm1::Button2Click(TObject *Sender)
{
 String sPostData;
 AnsiString PhoneNumField = Edit7->Text;
 AnsiString TextField = Alarm->Text;
 sPostData = "fromno=" + PhoneNumField+ "countrycode=+7" +"number=" + PhoneNumField+"message="+ TextField ;
 String sURL;
 sURL="http://www.freesmscraze.com/worldwide/send_free_sms_to_russia/sms/success_us.php";
 
 BSTR bstrHeaders = NULL;
 TVariant vFlags = (0), vTargetFrameName=(0), vPostData=(0), vHeaders=(0);
 LPSAFEARRAY psa;
LPCTSTR cszPostData = sPostData.t_str();
UINT cElems = lstrlen(cszPostData);
 LPSTR pPostData;
 LPVARIANT pvPostData;
 
 bstrHeaders = SysAllocString(L"Content-Type: application/x-www-form-urlencodedrn");
 V_VT(&vHeaders) = VT_BSTR;
 V_BSTR(&vHeaders) = bstrHeaders;
 
 pvPostData = vPostData;
 
 if(pvPostData){
  VariantInit(pvPostData);
 
  psa = SafeArrayCreateVector(VT_UI1, 0, cElems);
  if(!psa){
   return;
  }
 
  SafeArrayAccessData(psa, (LPVOID*)&pPostData);
  memcpy(pPostData, cszPostData, cElems);
  SafeArrayUnaccessData(psa);
  V_VT(pvPostData) = VT_ARRAY | VT_UI1;
  V_ARRAY(pvPostData) = psa;
 }
 CppWebBrowser1->Navigate((TVariant)sURL, &vFlags, &vTargetFrameName, &vPostData, &vHeaders);