Возможно ли как нибудь отправить SMS?

/* Для начала необходимо разобраться как происходит
отправка sms через инернет. Вы вводите номер телефона 
и текст сообщения, а затем отправляете. 
Через некоторое время сообщение будет доставлено адресату. 
Разные GSM операторы по-разному обрабатывают сообщения, 
у всех разные системы отправки, скрипты. Но целом, все 
одинаково. так, мы решили написать программу для отправки sms черезprocedure SendToMTS;
Интернет. Визуальную часть проектирования касаться не будем, 
а посмотрим как сформировать пакет для отправки оператору. 
Для примера возьмем МТС. Вся информация (номер телефона, 
текст сообщения, крайние время отправки) отсылается следующему скрипту:
[url]http://www.mts.ru/cgi-bin/cgi.exe?function=sms_send[/url] 
Информация хранится в следующих полях: */
 
To= // номер телефона, вида 7xxxxxxxxxx
Msg= // текст сообщения
Hour=,Min=,Day=,Mon=,Year=   // крайние время отправки сообщения
 
// Теперь несложно написать процедуру отправки сообщения:
 
var
  strPostData: string;
  Data: Pointer;
  URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
begin
 strPostData := 'To='+PhoneNumField.text+'&Msg=' 
        + TextField.Text +
         '&Hour=20&Min=23&Day=22&Mon=02&Year=2002';
  PostData := VarArrayCreate([0,Length(strPostData) -1], varByte);
  Data := VarArrayLock(PostData);
  try
    Move(strPostData[1], Data^, Length(strPostData));
  finally
    VarArrayUnlock(PostData);
  end;
  URL:='http://www.mts.ru/cgi-bin/cgi.exe?function=sms_send';
  Flags := EmptyParam;
  TargetFrameName := EmptyParam;
  Headers := EmptyParam; // TWebBrowser автоматически заполнит
                         // эти заголовки соответствующими 
                         // значениями
  form1.WebBrowser1.Navigate2(URL, Flags, 
 TargetFrameName, PostData, Headers);
end;
 
/* Все, что нам нужно это поместить на форму компоненту TWebbrowser. 
Через него и будет происходить отправка. Давайте теперь 
разберемся в том, что мы написали. Переменная strPostData 
хранит наименование полей и их содержимое в виду обычной строки. 
Но для корректной работы, мы должны преобразовать строку 
в нормальный вид. Всю информация мы преобразовали 
в переменную PostData. Переменной URL указываем путь 
к исполняемому скрипту; Flags оставим пустым, т.к. 
мы не будем открывать ни сайта, ни каких-то страниц; 
TargetFrameName также пуст; заголовки для пакета оставляем пустым, 
т.к компонента сама их заполнит и МТС не требует никакой верификации 
(как билайн, например). Конечным действием вызываем процедуру 
Navigate2 и отправляем сообщение. Описывать как заполнять поля 
время/дата не буду, т.к это очень просто. 
 
P.S: Также стоит заметить, что разные операторы используют 
разные методы отправки (GET или POST). В нашем примере 
мы использовали метод POST. Если необходимо использовать GET, 
то просто оставьте значение переменной PostData пустым. */

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
  String strPostData;
  Pointer Data;
  AnsiString URL, Flags, TargetFrameName, PostData;
  OleVariant Headers;
  AnsiString PhoneNumField = "89206676715";
  AnsiString TextField = "Hello";
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 
 
 
 strPostData = "To=" + PhoneNumField +"&Msg="
        + TextField +
         "&Hour=20&Min=40&Day=18&Mon=01&Year=2011";
  PostData = VarArrayCreate(0,strPostData.Length() -1, varByte);
  Data = VarArrayLock(PostData);
  try
  {
    Move(strPostData[1], Data, strPostData.Length());     // Здесь ошибка
 
    VarArrayUnlock(PostData);
  }
  catch(...)
  {
  URL="http://www.mts.ru/cgi-bin/cgi.exe?function=sms_send";
  }
  Flags = EmptyParam;
  TargetFrameName = EmptyParam;
  Headers = EmptyParam; // TWebBrowser ????????????? ????????
                         // ??? ????????? ????????????????
                         // ??????????
  CppWebBrowser1->Navigate2(URL, Flags, TargetFrameName, PostData, Headers); // И здесь :(
}
//---------------------------------------------------------------------------

AnsiString s;
Variant v = Variant(s);

CppWebBrowser1->Navigate2(URL, Flags, TargetFrameName, PostData, Headers);

AnsiString s;
Variant v = Variant(s);

А в том коде про Move, он ругается на ^

Let the following variable are defined:
 
      type rec = record ... end;
      var f, g : file of rec;
          r : rec;
// Then translation for the
// following construction will be:
 
    r := f^;
        f^ := r;
        f^ := g^;
 
    ==>
 
      r = *access(f);
      store(f, r);
      scopy(f, g);
//
type
        rec = record
  code : integer;
  name : array [1..10] of char;
        end;
      const
        pi = 3.14;
      var
        f : file of rec;
r : rec;
      begin
        writeln('Hello world');
writeln('pi = ', pi:10:5);
write(f, r);
read(f, r);
r := f^;
f^ := r;
readln;
      end.
 
  ==>
 
      struct rec {
          integer code;
          array<1,10,char> name;
      };
      const real pi = 3.14;
      file f;
      rec r;
 
      main()
      {
        output << "Hello world" << NL;
output << "pi = " << format(pi, 10, 5) << NL;
        f << r;
        f >> r;
        r = *f;
        store(f, r);
input >> NL;
return EXOT_SUCCESS;
     }

try
{
  Move(strPostData[1], Data, strPostData.Length());     // Здесь ошибка
  VarArrayUnlock(PostData);
}
catch(...)
{
URL="http://www.mts.ru/cgi-bin/cgi.exe?function=sms_send";
}

AnsiString URL, Flags, TargetFrameName, PostData;
OleVariant Headers;

OleVariant URL, Flags, TargetFrameName, PostData, Headers;

String sPostData;
 sPostData = "To=Номер&Msg=Test&Hour=20&Min=40&Day=18&Mon=01&Year=2011";
 String sURL;
 sURL="http://www.mts.ru/cgi-bin/cgi.exe?function=sms_send";
 
 BSTR bstrHeaders = NULL;
 TVariant vFlags = {0}, vTargetFrameName={0}, vPostData={0}, vHeaders={0};
 LPSAFEARRAY psa;
 LPCTSTR cszPostData = sPostData.c_str();
 UINT cElems = lstrlen(cszPostData);
 LPSTR pPostData;
 LPVARIANT pvPostData;
 
 bstrHeaders = SysAllocString(L"Content-Type: application/x-www-form-urlencodedrn");
 if (!bstrHeaders){
  Application->MessageBox("Could not allocate bstrHeaders", "Warning", MB_OK | MB_ICONWARNING);
  return;
 }
 
 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);