Fórum Enviar arquivo para WebBrowser #342187

Eu tenho um sistem onde gera um arquivo(imagem) em um determinado diretório, gostaria de saber se tem algum geito de enviar essa imagem via TWebBrowser, tio, fazer um upload em ASP. Dados do tipo texto, eu consegui enviar, gostaria de saber se tem algum jeito de enviar um tipo FILE.

Para enviar eu utilizei o código a seguir:

procedure Tfrmpostar.Button1Click(Sender: TObject);
Var
EncodedDataString: string;
PostData: OleVariant;
Headers: OleVariant;
I: integer;
begin
EncodedDataString := ´login=teste&´+
´senha=123´;
PostData := VarArrayCreate([0, length(EncodedDataString)-1], varByte);
For I := 1 to length(EncodedDataString) Do
begin
PostData[I-1] := Ord(EncodedDataString[I]);
end;
Headers := ´Content-type: application/x-www-form-urlencoded´#1013;
WebBrowser.Navigate(´http://localhost/teste.asp´,EmptyParam,EmptyParam,PostData,Headers);
end;

Ou se tiver alguma outra maneira de enviar um arquivo....

Agradeço desde já.