const 
  cSendToUTM = '%s -F "xml_file=@%s" %s/xml';
var
  CurlPath, XMLPath, UTM_URL: string //Пути соответственно к Curl.exe и отправляемому XML-файлу, и URL, куда отправляем

function SendToUTM: boolean;
const
  XmlSign = '<?xml';
var BatStr, SendResult: string;
    XMLPos: integer;		
begin
  //Отправка чека в УТМ при помощи Curl
  BatStr := Format(cSendToUTM, [CurlPath, XMLPath, UTM_URL]);
  SendResult := CreateAndRunBatFile(ExtractFilePath(Application.ExeName) + 'SendToUTM.bat', BatStr, True);
  XmlPos := Pos(XmlSign, SendResult);
  if XmlPos > 0 then begin
    {В ответе содержится XML-файл, все ОК, обработка и печать
     ...
    }
    Result := true;
  end
  else begin
    {Обработка ошибок
     ...
    }
    Result := false;
  end;
end;

function CreateAndRunBatFile(FilePath, BatStr: string; FromUTF: Boolean = False): string;
var SList: TStringList;
    ResultStrDos: PChar;
begin
  SList := TStringList.Create;
  SList.Text := BatStr;
  if FileExists(FilePath) then
    DeleteFile(FilePath);
  SList.SaveToFile(FilePath);
  ResultStrDos := PChar(GetDosOutput(FilePath));

  //Здесь спорный момент:
  if FromUTF then begin
    Result := UTF8Decode(ResultStrDos);
  end
  else begin
    OemToAnsi(ResultStrDos, ResultStrDos);
    Result := ResultStrDos;
  end;

  SList.Free;
  DeleteFile(PChar(FilePath));          
end;

function GetDosOutput(const CommandLine: string): string;
{Данная функция позаимствована где-то на просторах Интернета и включена практически без изменений}
var
  SA: TSecurityAttributes;
  SI: TStartupInfo;
  PI: TProcessInformation;
  StdOutPipeRead, StdOutPipeWrite: THandle;
  WasOK: Boolean;
  Buffer: array[0..255] of Char;
  BytesRead: Cardinal;
  WorkDir, Line: string;
begin
  with SA do
  begin
    nLength := SizeOf(SA);
    bInheritHandle := True;
    lpSecurityDescriptor := nil;
  end;
  // создаем пайп для перенаправления стандартного вывода
  CreatePipe(StdOutPipeRead, // дескриптор чтения
    StdOutPipeWrite, // дескриптор записи
    @SA, // аттрибуты безопасности
    0 // количество байт принятых для пайпа - 0 по умолчанию
    );
  try
    // Создаем дочерний процесс, используя StdOutPipeWrite в качестве стандартного вывода,
    // а так же проверяем, чтобы он не показывался на экране.
    with SI do
    begin
      FillChar(SI, SizeOf(SI), 0);
      cb := SizeOf(SI);
      dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
      wShowWindow := SW_HIDE;
      hStdInput := GetStdHandle(STD_INPUT_HANDLE); // стандартный ввод не перенаправляем
      hStdOutput := StdOutPipeWrite;
      hStdError := StdOutPipeWrite;
    end;

    // Запускаем компилятор из командной строки
    WorkDir := ExtractFilePath(CommandLine);
    WasOK := CreateProcess(nil, PChar(CommandLine), nil, nil, True, 0, nil, PChar(WorkDir), SI, PI);

    // Теперь, когда дескриптор получен, для безопасности закрываем запись.
    // Нам не нужно, чтобы произошло случайное чтение или запись.
    CloseHandle(StdOutPipeWrite);
    // если процесс может быть создан, то дескриптор, это его вывод
    if not WasOK then
      raise Exception.Create('Ошибка создания процесса')
    else
    try
        // получаем весь вывод до тех пор, пока DOS-приложение не будет завершено
      Line := '';
      repeat
        WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);

          // есть ли что-нибудь еще для чтения?
        if BytesRead > 0 then
        begin
            // завершаем буфер PChar-ом
          Buffer[BytesRead] := #0;
            // добавляем буфер в общий вывод
          Line := Line + Buffer;
        end;
      until not WasOK or (BytesRead = 0);
        // ждем, пока завершится консольное приложение
      WaitForSingleObject(PI.hProcess, INFINITE);
    finally
        // Закрываем все оставшиеся дескрипторы
      CloseHandle(PI.hThread);
      CloseHandle(PI.hProcess);
    end;
  finally
    result := Line;
    CloseHandle(StdOutPipeRead);
  end;
end;