Отправка XML на сервер с авторизацией

POSTData: TIdMultipartFormDataStream;
...
POSTData := TIdMultipartFormDataStream.Create;
...
   POSTData.AddFile('file',namefile XML,'application/xml');
    IdHTTP1.Post('...тут путь...', POSTData);

   PostData.AddFormField('login', log);
   PostData.AddFormField('password', pass);

var
  NetHttpClient: THttpClient;   // тут пробовал и TNetHttpClient
  NetHttpRequest: TNetHttpRequest;
  Params: TStringStream;
  Response: IHTTPResponse;
  Klyuch,NFileXML: string;
 
begin
 
 
  klyuch:='тут длинный APIKEY';
    NFileXML:='file.xml';
 
 try
  Params := TStringStream.Create;
   NetHttpClient := THttpClient.Create;
 
  Params.LoadFromFile(NFileXML);
 
 
   NetHttpClient.ContentType:= 'application/xml';
   NetHttpClient.AcceptCharSet:='utf-8';
   NetHttpClient.CustomHeaders['Authorization']:='login password';
 
  Response := NetHttpClient.Post('httpS://...путь...?APIKEY='+klyuch+'&rewrite=true', Params);      // почему-то при публикации здесь в слове true ставит пробел, в проге пробела нет
 
   if Response.StatusCode = 200 then
    BitBtn1.Caption := 'OK'
  else
    BitBtn1.Caption := 'ERROR '+Response.StatusText;
 finally
 
  NetHttpClient.Free;
  Params.Free;
 
end;
   end;

procedure TMainForm.Button6Click(Sender: TObject);
var
      f:TextFile;
      res:string;
    klyuch,NFileXML: String;
     params : TMemoryStream;
 
begin
  NFileXML:='file.xml';
  klyuch:='длинный APIKEY';
  params := TMemoryStream.Create;
 
   AssignFile(F, 'c:\1.txt');
   Rewrite(f);
 
  try
       params.LoadFromFile(NFileXML);
      IdHTTP2.Request.BasicAuthentication:=true;
      IdHTTP2.Request.Username:='login';
      IdHTTP2.Request.Password:='password';
      IdHTTP2.Request.Accept := 'application/xml';
 
      res:=IdHTTP2.Post('http://..путь..?APIKEY='+klyuch+'&rewrite=true', params);
 
  if Pos('answer completed="true"',res) <> 0 then
    Button6.Caption := 'OK'
  else
    Button6.Caption := 'ERROR';
 
    finally
    Write(f,res);
    CloseFile(f);
 end;
end;

uses
  System.Classes, System.Net.HttpClient, System.NetEncoding, System.NetConsts;
 
function PostWithBasicAuth(const AUrl, AUsername, APassword: string; AContentStream: TStream): string;
var
  HttpClient: THTTPClient;
  RequestStream: TStream;
  Response: IHTTPResponse;
  AuthHeader: string;
begin
  Result := '';
  HttpClient := THTTPClient.Create;
  try
    // Настройка Basic Authentication
    AuthHeader := 'Basic ' + TNetEncoding.Base64.Encode(AUsername + ':' + APassword);
    HttpClient.CustomHeaders['Authorization'] := AuthHeader;
 
    // Установка заголовков (при необходимости)
    HttpClient.ContentType := 'application/json'; // или другой нужный Content-Type
    HttpClient.Accept := 'application/json';      // или другой нужный Accept
 
    // Выполнение POST-запроса
    try
      Response := HttpClient.Post(AUrl, AContentStream);
      
      // Проверка успешности запроса
      if Response.StatusCode = 200 then
        Result := Response.ContentAsString
      else
        raise Exception.CreateFmt('HTTP error %d: %s', [Response.StatusCode, Response.StatusText]);
    except
      on E: ENetHTTPClientException do
        raise Exception.CreateFmt('HTTP request failed: %s', [E.Message]);
      on E: Exception do
        raise Exception.CreateFmt('Error: %s', [E.Message]);
    end;
  finally
    HttpClient.Free;
  end;
end;