Problema con PostData en WebBrowser.Navigate ¡No envia por POST!

[LuCkY_007]

Código Delphi [-]
procedure TFmNavegador.FormActivate(Sender: TObject);
Var
     Header:OleVariant;
     Post:OleVariant;
begin
     Header := 'USER_AGENT: Application Ready For Work:' + clave + #13 + #10;
     Post := 'usuario=' + UsuarioConectado;
     WebBrowser1.Navigate('www.WEBDEEJEMPLO.com',emptyparam,emptyparam,Post,Header);
end;

Ese es el codigo y pasa de mi no me envia datos por post ¿Que puedo hacer?¿Estoy haciendo algo mal?

Gracias

PD:Gracias a los que me ayudaron en otro post a instalar el TWebBrowser

[roman]

Me he encontrado este ejemplo, lo he probado y funciona:

Código Delphi [-]
function VarArrayFromString(const S: String): Variant;
begin
  Result := Unassigned;

  if S <> '' then
  begin
    Result := VarArrayCreate([0, Length(S) - 1], varByte);
    Move(Pointer(S)^, VarArrayLock(Result)^, Length(S));
    VarArrayUnlock(Result);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  PostData: OleVariant;
  Headers: OleVariant;

begin
  PostData := VarArrayFromString('campo1=valor1&campo2=valor2');
  Headers := 'Content-Type: application/x-www-form-urlencoded'#13#10;

  Browser.Navigate('http://tu/pagina/web.html', EmptyParam, EmptyParam, PostData, Headers);
end;

// Saludos