Загрузка файлов через TWebBrowser на Delphi

Доброго времени суток!

Необходимо сэмулировать загрузку файла на сайт используя TWebBrowser.

т.е. не выполнить submit формы.

А именно подставить имя файла в объект выбора файлов, чтобы при нажатии на кнопку "загрузить", он закачался.

Результат нужен в виде исходного кода на Delphi.

Должно работать на любом сайте. Для примера по требованию дам ссылки.