Wie anmelden an entfernten Webservice per Headerinfo?

[TiGü]

Delphi-Quellcode:

type
  THelper = class
  public
    procedure BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
  end;

procedure THelper.BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
  accesstoken: string;
  cashbox: string;
begin
  cashbox := '31ada64f-bafd-492e-ac92-867f82bb2e59';
  accesstoken := 'BJLC+VckWl36AhGwvH3sOC6bQcowHjWq7vx3wsDy42nnLcyB49vrgkxkeMvqodNtvtwaJ51HUaBs7eiX7PUyiOg=';

  HttpAddRequestHeaders(Data, PChar(cashbox), Length(cashbox), HTTP_ADDREQ_FLAG_ADD);
  HttpAddRequestHeaders(Data, PChar(accesstoken), Length(accesstoken), HTTP_ADDREQ_FLAG_ADD);
end;

procedure Main;
var
  baseaddress: string;
  address: string;
  FiskalTrust: IPOS;
  Call, Echo: string;
  Rio: THTTPRIO;
  helper: THelper;
begin
  helper := THelper.Create;
  // baseaddress := 'https://signaturecloud.fiskaltrust.at';
  baseaddress := 'https://signaturcloud-sandbox.fiskaltrust.at';

  address := baseaddress;

  Rio := THTTPRIO.Create(nil);
  Rio.HTTPWebNode.OnBeforePost := helper.BeforePost;

  FiskalTrust := GetIPOS(false, address, Rio);
  Call := 'Hello';
  Echo := FiskalTrust.Echo(Call);
  if Echo <> Call then
    raise EProgrammerNotFound.Create('Is nich!');

  Writeln(Echo + sLineBreak);
end;

Hm, also mein OnBeforePost wird zwar aufgerufen, aber weiter komme ich nicht.
Der Aufruf der Echo-Methode schlägt fehl und ich erhalte eine 404-Fehler.

Zitat:

Project BlaBlupp.exe raised exception class ESOAPHTTPException with message 'Not Found (404) - 'https://signaturcloud-sandbox.fiskaltrust.at''.

Ich werde wohl nochmal mit den Anbieter in Kontakt treten.
Nicht das ich ständig den Fehler bei mir suche und am Ende ist die Endstelle offline.