СМС

[artemavd]

Вот код, который я отыскал в интернете и попробовал передалть под себя:

procedure TForm1.Button1Click(Sender: TObject);
var
 strPostData: string;
 Data: Pointer;
 URL,Flags,TargetFrameName,PostData,Headers: olevariant;
begin
 strPostData:='';//'name='+Edit1.Text;//'To='+Edit1.Text+'&Msg='+Edit2.Text+'&Hour=16&Min=32&Day=22&Mon=12&Year=2009';
 PostData:=VarArrayCreate([0,Length(strPostData)-1],varByte);
 Data:=VarArrayLock(PostData);
 try
  Move(strPostData[1],Data^,Length(strPostData));
 finally
  VarArrayUnlock(PostData);
 end;
 URL:='http://irkutsk.megafon.ru/sms/';
 Flags:=EmptyParam;
 TargetFrameName:=EmptyParam;
 Headers:=EmptyParam;
 WebBrowser1.Navigate2(URL,Flags,TargetFrameName,PostData,Headers);
end;

На форму кинул Edit1, Edit2, WebBrowser1, Button1. Но когда я нажимаю на кнопку с вышеприведенным кодом, то в WebBrowser1 открывается страница для отправки смс, а смс не отправляется. Что не так я делаю? Мне нужно, чтобы происходила отправка смс без всяких открытий страницы.
Вот, как я понимаю, сам скрипт:

<script language="JavaScript" src="/js/sms.js"></script><p>Вы можете бесплатно отправить <a href="../services/messaging/sms/">SMS-сообщение</a> любому абоненту сети «МегаФон-Дальний Восток». Максимальный размер сообщения 160 символов латиницы или 70 символов кириллицы.</p><form name="dialog_form" action="post/" method="post" onsubmit="return check(dialog_form);" id="dialog_form"><p class="label">Номер телефона</p><table><tr><td>+7 924*</td><td><input type="text" name="phone" size="16" maxlength="7" value="" /></td></tr></table><p class="label">Текст сообщения</p><table><tr><td width="70%"><textarea name="message" cols="46" rows="5" onKeyUp="doChange()" onChange="doChange()"></textarea></td><td><SCRIPT LANGUAGE="JavaScript">
function bns_next_frame() {
var f1=document.getElementById('bns_frame_1');
var f2=document.getElementById('bns_frame_2');
f1.style.display='none';
f2.style.display='block';
};
</SCRIPT>