Procedure uploadfile(tcFileKMZ,tcFileName)
      * загрузка на файловый сервер, возвращает хеш файла
      Local lcKMZContent, oHTTPS, lcData, lcRes, CrLf, lcBoundary, lcBoundaryM, lcResText
      CrLf=Chr(13) + Chr(10)
      lcKMZContent=Filetostr(tcFileKMZ)
      lcBoundary='1BEF0A57BE110FD467A7T5F21F'
      lcBoundaryM='--'+lcBoundary
      oHTTPS = Newobject("MSXML2.XMLHTTP")
      oHTTPS.Open("POST",'http://share.abc.ru/file_am/upload_new_file',.F.)
      oHTTPS.SetRequestHeader("Content-Type", "multipart/form-data; boundary="+lcBoundary)
      oHTTPS.SetRequestHeader("Authorization","12345")
      oHTTPS.SetRequestHeader("User-Agent","Mozilla/1.0")
      lcData=CrLf+lcBoundaryM+CrLf
      lcData=lcData+'Content-Disposition: form-data; name="ID_TYPE"'+CrLf+CrLf+'41'+CrLf
      lcData=lcData+CrLf+lcBoundaryM+CrLf
      lcData=lcData+'Content-Disposition: form-data; name="fileToUpload"; filename="'+tcFileName+'"'+CrLf
      lcData=lcData+'Content-Type: application/octet-stream'+CrLf
      lcData=lcData+'Content-Transfer-Encoding: binary'+CrLf
      lcData=lcData+CrLf+lcKMZContent+CrLf+lcBoundaryM+'--'+CrLf
      lcData=Createbinary(lcData) --------> здесь по сути содержимое файла
      oHTTPS.Send(lcData)
      lcResText=oHTTPS.responseText
      If Left(lcResText,13)=='{"result":"1"'
            Return Strextract(lcResText,'"hash":"','","id_type"')
      Else
            Return ''
      Endif
      EndProc

procedure TMainForm.UniBitBtn2Click(Sender: TObject);
var
  ASource: TIdMultiPartFormDataStream;
  lcBoundary : string;
  ss: string;
begin
  ASource := TIdMultiPartFormDataStream.Create;
  ASource.AddFile('fileupload', UniServerModule.StartPath + 'files\tick.png', '');
  lcBoundary := '1BEF0A57BE110FD467A7T5F21F';
//---------------------------------------------------------------------------
// добавим атрибуты если надо
  ASource.AddFormField('ID_TYPE', '41');
  ASource.AddFormField('fileToUpload','tick.png');
//----------------------------------------------------------------------------
  IdHTTP1.HandleRedirects := true;
  IdHTTP1.Request.RawHeaders.AddValue('Content-Type','multipart/form-data; boundary=' + lcBoundary);
  IdHTTP1.Request.RawHeaders.AddValue('Authorization','12345');
  IdHTTP1.Request.RawHeaders.AddValue('User-Agent','Mozilla/1.0');

  IdHTTP1.Request.ContentType := 'application/octet-stream';
//  IdHTTP1.Request.RawHeaders.SaveToFile('c:\aaa.txt');
//  ss := IdHTTP1.Request.ContentEncoding;
//  IdHTTP1.Request.Referer := 'http://share.rtrn.ru/file_amt/upload_new_file';
  try
   UniMemo1.Text := IdHTTP1.Post('http://share.abc.ru/file_am/upload_new_file', ASource);
//    ShowMessage(IdHTTP1.Response.ResponseText);
   // ShowMessage(IdHTTP1.ResponseText);
  except
    on E:EIdHTTPProtocolException do
     ShowMessage(E.ErrorMessage);
  end;
  ASource.Free;
end;