Здравствуйте уважаемые эксперты! Попытался недавно сделать программку, которая бы отсылала информацию на сервер методом POST. Не получилось. Нашёл пример (он в приложении), но при отладке он выдаёт "Invalid variant type". (ошибка происходит в самом конце
We.Navigate2(vWebAddr, vFlags, vFrame, vPostData, vHeaders); )

Вопрос: Что тут неправильно (я так и не смог понять, в чём же проблема)?
Заранее спасибо.

Приложение:
function HTTPTran(St : String) : String;var i : Integer; begin Result:=‘‘; for i:=1 to length(St) do if St[i] in [‘a‘..‘z‘,‘A‘..‘Z‘,‘0‘,‘1‘..‘9‘] then Result:=Result+St[i] else if St[i]=‘ ‘ then Result:=Result+‘+‘ else Result:=Result+‘%‘+IntToHex(Byte(St[i]),2); end;procedure TForm1.Button1Click(Sender: TObject);var vWebAddr, vPostData, vFlags, vFrame, vHeaders: OleVariant; iLoop: Integer; stPostData:string;begin stPostData:=‘srok=‘+ HTTPTran(‘0‘) +‘&‘+ ‘country=‘+ HTTPTran(‘UA‘) +‘&‘+ ‘countryFromRegionID=‘+ HTTPTran(‘8‘) +‘&‘+ ‘load=‘+ HTTPTran(‘‘); if Length(stPostData)> 0 then begin {Require this header information if there is stPostData.} vHeaders:= ‘Content-Type: application/x-www-form-urlencoded‘+ #10#13#0; {Set the variant type for the vPostData.} vPostData:= VarArrayCreate([0, Length(stPostData)], varByte); for iLoop := 0 to Length(stPostData)- 1 do // Iteratebegin vPostData[iLoop]:= Ord(stPostData[iLoop+ 1]); end; // for {Final terminating Character.} vPostData[Length(stPostData)]:= 0; {Set the type of Variant, cast} TVarData(vPostData).vType:= varArray; end; {And the other stuff.} vWebAddr:= ‘http://avtotrans.net/?op=gruzadd&r=a‘; {Make the call Rex.} We.Navigate2(vWebAddr, vFlags, vFrame, vPostData, vHeaders); end; {End of Navigate procedure.} end.