Código Delphi [-]
        AHttp                       := TIdHTTP.Create(nil);

        IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

        try

                try

                        IdSSLIOHandlerSocketOpenSSL.SSLOptions.SSLVersions := [sslvTLSv1_2];

                        IdSSLIOHandlerSocketOpenSSL.SSLOptions.CertFile    := FBaiConfiguration.restServer.certificateFile;

                        IdSSLIOHandlerSocketOpenSSL.SSLOptions.KeyFile     := FBaiConfiguration.restServer.certificateFile;

                        IdSSLIOHandlerSocketOpenSSL.OnGetPassword          := GetPasswordEvent;



                        AHttp.IOHandler              := IdSSLIOHandlerSocketOpenSSL;

                        AHttp.ConnectTimeout         := 5000;

                        AHttp.Request.CustomHeaders.Clear;

                        AHttp.Request.CustomHeaders.AddValue('Accept-Encoding',             'gzip');

                        AHttp.Request.CustomHeaders.AddValue('Content-Encoding',            'gzip');

                        AHttp.Request.CustomHeaders.AddValue('Content-Type',                'octet-stream');

                        AHttp.Request.CustomHeaders.AddValue('Content-Length',              IntToStr(RecoverFileSize(TPath.Combine(FWorkFilePath, Format('LROE_240_1_1_%s.gz',[documentData.document_sid])))));

                        AHttp.Request.CustomHeaders.AddValue('eus-bizkaia-n3-version',      '1.0');

                        AHttp.Request.CustomHeaders.AddValue('eus-bizkaia-n3-content-type', 'application/xml');

                        AHttp.Request.CustomHeaders.AddValue('eus-bizkaia-n3-data',         ComposeJSONBizcaiaData); // El Json está construido según la documentación



                        Try

                                requestBody  := TFileStream.Create(TPath.Combine(FWorkFilePath, Format('LROE_240_1_1_%s.gz',[documentData.document_sid])), fmOpenRead);

                                try

                                        try

                                                responseBody := AHttp.Post(FBaiConfiguration.restServer.urlInsertDocument, requestBody);



                                                if AHttp.ResponseCode = 200 then

                                                Begin

              // Si fuera bien, leería la respuesta

                                                        Result := True;

                                                End;

                                        except

                                                on e: EIdHTTPProtocolException do

                                                begin

                                                        Result := False;

                                                        errorMessage := 'Error: Uploading document failed. ' + IntToStr(AHttp.ResponseCode) + ' - ' + AHttp.response.ResponseText;

                                                end;

                                        end;

                                finally

                                        requestBody.Free;

                                end;

                        Except

                                on e: EIdHTTPProtocolException do

                                begin

                                        Result := False;

                                        errorMessage := 'Error: Uploading document failed. ' + IntToStr(AHttp.ResponseCode) + ' - ' + AHttp.response.ResponseText;

                                end;

                        End;



                except

                        on E: Exception do

                        begin

                                Result := False;

                                errorMessage := 'Error: Uploading document TicketBAI failed.';

                        end;

                end;

        finally

                FreeAndNil(AHttp);

                FreeAndNil(IdSSLIOHandlerSocketOpenSSL);

        end;