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

[LuCkY_007]

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:


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