Загрузка файла на Rghost

[nibufep]

procedure TForm1.Button1Click(Sender: TObject);
var
f:TIdMultiPartFormDataStream;
http:THTTPSendEx;
html,token,link:string;
begin
f:=TIdMultiPartFormDataStream.Create;
http:=THTTPSendEx.Create;
http.UserAgent:='Mozilla/5.0 (Windows NT 6.3; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/38.0.2125.111 Safari/537.36';
http.GET('http://rghost.net/',html);
token:=pars('<input name="authenticity_token" type="hidden" value="' , html, '"');
link:=pars('<form accept-charset="UTF-8" action="http://' , html, '"');
http.ClearAll;
f.AddFormField('utf8', '&#x2713;');
f.AddFormField('authenticity_token', token);
f.AddFile('file', opendialog1.FileName, 'Content-Type: application/x-msdownload');
f.AddFormField('commit', 'Upload');
http.POST(link,f,html);
if http.IsRedirect = true then begin
edit1.Text:=http.Location;
end else begin
edit1.Text:='Error';
end;
f.Free;
http.Free;
end;

Пытаюсь загрузить файл и всегда получаю ошибку 500. И когда снифаю запрос, все данные отправляются в каком то странном виде: