http://svn.hiasm.com/packs/delphi/Example/Internet/Upload_File_on_Server.sha
Дополнительные поля добавить в HTTP_FileUpload.VarsList