post запрос

[topinaka]

помогите правильно составить пост запрос есть некая интернет страница на ней нужно ввести номер выбрать код и нажать отправить ... много читал литературы вот тот бред что у меня получился но ничего непроисходит

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);
}