Загрузка больших видео vk api

[stasa9711]

Доброго времени суток, стоит такая проблема : не могу загрузить большое видео в vk (~1 гиг) . С маленькими видео все проходит удачно. Инет у меня очень хороший, если вручную загружать, то примерно 1 гиг загрузит за минут 10
Вот кусок кода:

 HTTP:=tHTTPSendEx.Create;
 HTTP.UserAgent:='Mozilla/5.0 (Windows NT 5.1; rv:14.0) Gecko/20100101 Firefox/14.0.1';
 
HTTP.Cookies.Text:=cookies;
          Video:=TMemoryStream.Create;
          Video.Clear;
          Video.LoadFromFile(filen);
          Bound:='-----' +IntToHex(Random(65535), 8)+'_boundary';
          HTTP.MimeType:='multipart/form-data; boundary='+Bound;
 
 
Field:='--'+Bound+CRLF;
          Field:=Field+'Content-Disposition: form-data; name="video_file"; filename="'+filen+'"'+CRLF+'Content-Type: '+'video/mp4'+CRLF+CRLF;
          WriteStrToStream(HTTP.Document, Field);
          HTTP.Document.CopyFrom(Video, 0);
          WriteStrToStream(HTTP.Document, CRLF);
          Field:='--'+Bound+CRLF+'Content-Disposition: form-data; name="video_file"'+CRLF+CRLF+'post'+CRLF;
          WriteStrToStream(HTTP.Document, Field);
          Field:='--'+Bound+'--'+CRLF;
          WriteStrToStream(HTTP.Document, Field);
 
 
 HTTP.Post(upload_url);
  rez:=TStringList.Create;
 rez.LoadFromStream(HTTP.Document);
 otvet:=rez.Text;

Запрос все время находится "в воздухе". Сниффер не видит , ниже я вывожу переменную otvet , но это просто не происходит , т.к застревает на отправке.
Напомню, что с маленькими видео работает все норм.
В чем проблема ?

Делал на инди даже :

vd := TIdMultipartFormDataStream.Create;
 
   vd.AddFile('video_file',filen,'video/mp4') ;
 
 str:=form1.idHTTP1.Post(upload_url, vd);

все равно не загружает. Вроде программа память не загружает открыл диспетчер задач, 44% памяти использовалось , запустил программу, все так же 44% программа юзала 2,5 мб памяти

[vlad1389]

А файл в TMemoryStream влазит?