Delphi Как загрузить на файлообменик файл? плиз пример

Delphi Как загрузить файл на файлообменик?
Покажите плиз пример как на Indy залить файл через хттп.

 

Code:

procedure zaliv(filename:TFileName);
var mf:TIdMultiPartFormDataStream; s:string;
id:TIdHTTP;
begin
  id:=TIdHTTP.Create(nil);
  mf:=TIdMultiPartFormDataStream.Create;
  mf.AddFile('file',extractfilepath(paramstr(0))+filename,'application/octet-stream');
  mf.AddFormField('desc','');
  mf.AddFormField('send','Отправить!');
  mf.AddFormField('password',form1.edit19.Text);
  s:=id.Post('http://upwap.ru/upload/',mf);
  ssilochka:=pars('<input type="text" value="',s,'" /></div></form></div>');
  id.Free;
end;