procedure TMainForm.DwnlWithIndy;
var vURL : string;
  vDataId : TIdMultiPartFormDataStream;
  vResponse : string;
  vJSON: TJSONObject;
  vSS : TStringStream;
  vIdHttp : TIdHTTP;
begin
  vIdHttp := TIdHTTP.Create(Self);
  try
    // Параметры запроса;
    vDataId := TIdMultiPartFormDataStream.Create;
    vDataId.AddFormField('path', ePathSrv.Text).ContentTransfer := '8bit';
    vDataId.AddFormField('compression_mode', 'BASE64');
    vDataId.AddFormField('response_type', 'JSON');

    // URL для отправки запроса;
    vURL := cbbHost.Text + '?show_file';

    memoRequest.Clear;
    memoRequest.Lines.Add(DateTimeToStr(Now)+#13#10+'Request params added!');

    // Отправка POST запроса;
    memoResponse.Clear;
    memoResponse.Lines.Add('Download START: '+#09+DateTimeToStr(Now));
    vResponse := vIdHttp.Post(vURL, vDataId);
    memoResponse.Lines.Add('Download END: '+#09+DateTimeToStr(Now));

    // Сохранение результата выполнения запроса;
    vSS := TStringStream.Create(vResponse);
    try
      vSS.SaveToFile('response.json');

      // Сохранение файла на ПК;
      vJSON := TJSONObject.ParseJSONValue(vResponse, False, True) as TJSONObject;
      vSS := TStringStream.Create(vJSON.Values['file_data'].Value);
      vSS.SaveToFile('vid.mp4');
    finally
      FreeAndNil(vSS);
    end;
  finally
    FreeAndNil(vIdHttp);
  end;
end;