webbrowser post 로 넘기기

var
  strList : TStringList;
  vWebAddr, vPostData, vFlags, vFrame, vHeaders: OleVariant;
  iLoop: Integer;
  stURL, stPostData: String;
begin
  stPostData := 'aviFileNameFullPath=adadfads&strSmiFileFullPath=ㅁㅇㄻㅇㄴ';
  vHeaders:= 'Content-Type: application/x-www-form-urlencoded'+ #10#13#0;
  vPostData:= VarArrayCreate([0, Length(stPostData)], varByte);
   for iLoop := 0 to Length(stPostData)- 1 do begin
     vPostData[iLoop]:= Ord(stPostData[iLoop+ 1]);
   end;
   vPostData[Length(stPostData)]:= 0;
   //TVarData(vPostData).vType:= varArray;

 vFlags := 0;
 vWebAddr := stURL;

  WebBrowser1.Navigate('http://111.11.11.20/aviplayer_run.asp', vFlags, vFrame, vPostData, vHeaders);