post запрос

[sanyamel]

пробую отослать смс через сайт http://www.mts.com.ua/ukr/sendsms.php не получается оформить пост запрос ! Помогите плиз.

а через live http replay дополнение в firefox все отлично получается !

procedure TForm1.Button1Click(Sender: TObject);
var
http: THTTPSend;
data:TStringStream;

begin
// создаем класс для работы с HTTP
http := THTTPSend.Create;
// Заполняем параметры класса и заголовок

http.UserAgent := 'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.2; ru; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13';
http.KeepAliveTimeout := 115;
http.KeepAlive := true;
http.Headers.Add('Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8');
http.Headers.Add('Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3');
http.Headers.Add('Accept-Encoding: gzip, deflate');
http.Headers.Add('Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7');
http.Headers.Add('Keep-Alive: 115');
http.Headers.Add('Connection: keep-alive');
http.Headers.Add('Referer: http://www.mts.com.ua/ukr/sendsms.ph...ang=lat');
http.Headers.Add('Content-Type: application/x-www-form-urlencoded');
http.Headers.Add('Host: www.mts.com.ua');

Data:=TStringStream.Create('');
Data.WriteString('script=%2Fukr%2Fs endsms.php');
Data.WriteString('sms_tag_id=3');
Data.WriteString('network1=38050');
Data.WriteString('phone1=9556004');
Data.WriteString('24c6d7fd151090873 022d4b35e72ee35=43434303');
Data.WriteString('message=text');
Data.WriteString('lang=lat');
Data.WriteString('captcha=54svs');

// Собственно отправляем запрос
HTTP.HTTPMethod('POST', 'http://www.mts.com.ua/back/modules/sms/db_sms.php');
if HTTP.ResultCode <> 200 then
begin
MessageDlg('Ошибка выполнения запроса', mtError, [mbOK], 0);

end;

end;

[Delphi_ProGer]

if HTTP.ResultCode <> 200

А может быть там редирект?