function TfmMain.Authorize1: integer;
var
  HTTP: THTTPSend;
  Stream: TStream;
  URLData: AnsiString;
  len: integer;
begin
  Result := 0;
  HTTP := THTTPSend.Create;
  Stream := TStream.Create;
  try                  
    HTTP.MimeType := 'application/x-www-form-urlencoded';
    URLData := 'login=' + EditLogin.Text + '&phase=try';
    Len := Length(URLData);
    HTTP.Document.Write(Pointer(URLData)^, Len);
    if HTTP.HTTPMethod('POST', URLAuthorize) then
        MemoAuthorize.Lines.LoadFromStream(HTTP.Document);
        if MemoAuthorize.Text[1] <> '-' then
          EditChallenge.Text := MemoAuthorize.Text
        else
          Result := StrToInt(MemoAuthorize.Text);
  finally
    Stream.Free;
    HTTP.Free;
  end;

procedure TfmMain.btnSendFileClick(Sender: TObject);
const
  CRLF = #$0D + #$0A;
var
  HTTP: THTTPSend;
  Bound, s: AnsiString;
  stream: TFileStream;
  ResultData: TStrings;
  CRC: AnsiString;
begin
  MemoUploadSourceFile.Clear;
  if EditFilename.Text = '' then
    begin
      LabelUploadSourceFile.Caption := 'Ошибка: Не выбран файл для выгрузки!';
      exit;
    end;
  Bound := IntToHex(Random(MaxInt), 8) + '_boundary';
  HTTP := THTTPSend.Create;
  try
    HTTP.MimeType := 'multipart/form-data, boundary=' + Bound;

    // Дескриптор операции
    s := '--' + Bound + CRLF;
    s := s + 'content-disposition: form-data; name="descriptor";' + CRLF + CRLF;
    s := s + descriptor + CRLF;
    HTTP.Document.Write(Pointer(s)^, Length(s));

    // Номер транзакции
    s := '--' + Bound + CRLF;
    s := s + 'content-disposition: form-data; name="transaction_number";' + CRLF + CRLF;
    s := s + TransactionNumber + CRLF;
    HTTP.Document.Write(Pointer(s)^, Length(s));

    // Контрольная сумма
    CRC := IntToStr(FileCRC32(EditFilename.Text));
    s := '--' + Bound + CRLF;
    s := s + 'content-disposition: form-data; name="crc";' + CRLF + CRLF;
    s := s + CRC + CRLF;
    HTTP.Document.Write(Pointer(s)^, Length(s));

    // Содержимое файла
    s := '--' + Bound + CRLF;
    s := s + 'content-disposition: form-data; name="source_file";';
    s := s + ' filename="' + ExtractFilename(EditFilename.Text) +'"' + CRLF;
    s := s + 'Content-Type: Application/octet-stream' + CRLF + CRLF;
    HTTP.Document.Write(Pointer(s)^, Length(s));

    stream := TFileStream.Create(EditFilename.Text, fmOpenRead or fmShareDenyWrite);
    HTTP.Document.CopyFrom(stream, 0);
    stream.Free;

    s := CRLF + '--' + Bound + '--' + CRLF;
    HTTP.Document.Write(Pointer(s)^, Length(s));

    if HTTP.HTTPMethod('POST', URLUploadSourceFile) then
      begin
        ResultData := TStringList(MemoUploadSourceFile.Lines);
        ResultData.LoadFromStream(HTTP.Document);

        if MemoUploadSourceFile.Lines[0] = '0' then
          LabelUploadSourceFile.Caption := 'Выгрузка успешна!'
        else
        if MemoUploadSourceFile.Text = '-1' then
          LabelUploadSourceFile.Caption := 'Ошибка: Не указан дескриптор!'
        else
        if MemoUploadSourceFile.Text = '-2' then
          LabelUploadSourceFile.Caption := 'Ошибка: Не указан номер транзакции!'
        else
        if MemoUploadSourceFile.Text = '-3' then
          LabelUploadSourceFile.Caption := 'Ошибка: Не указана контрольная сумма файла!'
        else
        if MemoUploadSourceFile.Text = '-4' then
          LabelUploadSourceFile.Caption := 'Ошибка: Пользователь не авторизован!';
      end
    else
      ShowMessage('Не удалось скопировать файл');
  finally
    HTTP.Free;
  end;
end;

procedure TfmMain.btnGetResultFileClick(Sender: TObject);
var
  HTTP: THTTPSend;
  Stream: TStringStream;
  FStream: TFileStream;
  URLData: AnsiString;
  len: integer;
  fio: string;
  i: Integer;
  checksum: string;
  ResultFileName: string;
  ResultCode: string; // результат 0 - удачно, отрицательное значение - ошибка
  ProgramFolder: string;
begin
  HTTP := THTTPSend.Create;
  Stream := TStringStream.Create('', TEncoding.UTF8);
  try
    HTTP.MimeType := 'application/x-www-form-urlencoded';
    URLData := 'descriptor=' + descriptor +
               '&transaction_number=' + TransactionNumber;
    Len := Length(URLData);
    HTTP.Document.Write(Pointer(URLData)^, Len);
    if HTTP.HTTPMethod('POST', URLGetResultFile) then
      begin
        ....
        if ResultCode = '0' then // удачное получение файла
          begin
            Stream.LoadFromStream(HTTP.Document);
            Stream.SaveToFile(ProgramFolder + 'out\' + ResultFileName);

            if checksum = IntToStr(FileCRC32(ProgramFolder + 'out\' + ResultFileName)) then
              LabelGetResultFile.Caption := 'Скачивание файла результата успешно!'
            else
              LabelGetResultFile.Caption := 'CRC не совпадает! Возможно, файл поврежден при передаче.'
          end
        else
        if ResultCode = '-1' then
          LabelGetResultFile.Caption := 'Ошибка: Не указан дескриптор!'
        else
        if ResultCode = '-2' then
          LabelGetResultFile.Caption := 'Ошибка: Не указан номер транзакции!'
        else
        if ResultCode = '-3' then
          LabelGetResultFile.Caption := 'Ошибка: Пользователь не авторизован!'
       ...
 
  finally
    Stream.Free;
    HTTP.Free;
  end;
end;