[Gribok]

мне тут подкинули ответ на одном форуме
но я незнаю какэто осуществить

Код:

вообщем  идет ПОСТ ЗАПРОС НА  http://smste.ru/


procedure TForm1.Button1Click(Sender: TObject);
var  params:Tstringlist;
begin
params:=Tstringlist.Create;
    params.Add('number='+number.text);
    params.Add('message=babalba');
    params.Add('sign=babalba2');
    params.Add('event=1911755');  // Константа  вроде бы ))   хотя возможно и нет я тока 2 запроса проверял 
    params.Add('codemod=code920760862');  а это что то с кепчем 
    params.Add('code920760862=4910');         а это что то с кепчем 
    memo1.text:=Idhttp1.Post('http://smste.ru/',params);
params.Free;


Удачи еще нужно в компонент доварить 
Host: smste.ru
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.2; ru; rv:1.9.1.2) Gecko/20090729 MRA 5.4 (build 02647) Firefox/3.5.2 WebMoney Advisor
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: ru,en-us;q=0.7,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: http://smste.ru/
Content-Type: application/x-www-form-urlencoded
Content-Length: 96

Удачи )) осталось разобраться с кепчем )) 
Точн оне знаю но вродебы кепчи статик тоесть по адресу 
http://smste.ru/pix/1912635.jpg   (4397)
проверял 2 браузерах )) 
 params.Add('event=1911755'); возможна эта строччка отвечает за кепч