Отправка файлов на файлообменник (Delphi)

[babka_s_metloi]

Добрый день!

Существует сайт "http://dotaparser.ru". Он нужен для заливки реплеев от Warcraft 3 (именно игры Dota).
Подскажите пожалуйста, как при помощи Delphi можно на него залить файл с показанием прогрессбара и выводом в edit ссылки для его скачивания.

Вот пример реплея:
http://zalil.ru/32804573

[Кольша]

пиши order@ksware.ru

[babka_s_metloi]

Я попросил бесплатно помочь, за деньги я не собираюсь.

[Кольша]

ну так то я понял

[Кольша]

add:можно с помощью indy или synapse

[babka_s_metloi]

Я понимаю что с помощью indy, но как это реализовать не знаю. Поэтому и прошу помочь.

[babka_s_metloi]

Ребят, вот нашел как залить файл на zalil.ru. всё работает! А вот как сделать, чтобы он заливал на dotaparser не могу разобраться. помогите плиз, заранее спасибо.

var
F : TIdMultiPartFormDataStream;
begin
 IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5';
 F := TIdMultiPartFormDataStream.Create;
 try
 F.AddFile('file', 'C:\test.txt', 'application/octet-stream');
 try
 IdHTTP1.Post('http://zalil.ru/upload/', F);
 except on E : Exception do
 if IdHTTP1.Response.ResponseCode = 302 then
 Edit1.Text := 'http://zalil.ru/' + StringReplace(IdHTTP1.Response.Location,'/upload/','',[])
 else
 Edit1.Text := E.Message;
 end;
 finally
 F.Free;
 end;
end;