JSON & Indy 2. Aufruf bringt 502 Bad Gateway

[Supergr]

Hallo Zusammen,

langsam verzweifel ich an dem Problem. Ich muss an einen HTTPS Server ein JSON formatierte Daten versenden und bekomme
von dem Server dann eine ID zurück. Beim ersten Post gehts wunderbar, alles toll. Jedoch beim 2. Post bekomme ich
immer einen 502 Bad Request zurück. Jemand eine Idee woran das liegen könnte?

In jo befindet sich das JSON Object.
Ich würde auch ein anderes Object als INDY nehmen. Kostenpflichtig wäre kein Problem. Ich finde leider nichts sinnvolles...

Delphi XE7
Indy 10.6.1

Hier der Code der Subroutine:

Code:

procedure TForm1.CmdUpdateClick(Sender: TObject);
var
  SendString    : TStringStream;
  RcvString     : TStringStream;
  IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
  IdHTTP1: TIdHTTP;
begin
  IdHTTP1 := TIdHTTP.Create();
  IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create();
  IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
  IdHTTP1.Request.Accept := 'application/json';
  IdHTTP1.Request.AcceptEncoding := 'utf-8';
  IdHTTP1.Request.ContentEncoding := 'utf-8';
  IdHTTP1.Request.ContentType := 'application/json';
  IdHTTP1.HttpOptions := [hoNoProtocolErrorException];
  RcvString := TStringStream.Create;
  try
    SendString := TStringStream.Create(UTF8Encode(jo.ToString));
    try
      IdHTTP1.Post('https://www.egym.de/egym-rest/gymapi/user/publish?' + apiAccessKey, SendString, RcvString);
    except
      // Tue nichts, springe nur raus...
    end;
  finally
    SendString.Free;
  end;
  Memo1.Lines.Clear;
  Memo1.Lines.Add(Format('Response Code: %d', [IdHTTP1.ResponseCode]));
  Memo1.Lines.Add(Format('Response Text: %s', [IdHTTP1.ResponseText]));
  Memo1.Text := AdsData.FieldByName('eMail').AsString + ' erl. ID: "' + RcvString.DataString + '"';
  IdStr := RcvString.DataString;
  RcvString.Free;
  IdSSLIOHandlerSocketOpenSSL1.Close;
  idHTTP1.Disconnect;
  IdSSLIOHandlerSocketOpenSSL1.Free;
  IdHTTP1.Free;

für jede Idee oder Hilfe wäre ich sehr dankbar!

Stefan