Obtener elementos de un JSON en delphi

[(MAJ)]

Buenas compañero

Lo que necesito es leer el JSON y sacar las claves, dependieno al nombre ya puedo entrar a tomar el valor que necesito, ya que no puedo obtener la clave Estado cuando la clave puede ser Mensaje y ahí obtengo error.

se me ocurre algo así

Código Delphi [-]
  procedure ParseJSON;
var

JObject: TJsonObject;
JEstado: TJValue;
JCode: TJValue;
JMessage: TJValue

begin
  JObject:= TJSONObject.ParseJSONValue(Memo1.text) as TJSONObject;
  

  JEstado:= JObject.FindValue('estado');
  JMessage:= JObject.FindValue('message');



  if Assigned(JEstado) then
  begin

    Memo2.Text:= JEstado.Value' - '+JMessage.Value
  end;

 else
   begin
     JCode:= JObject.FindValue('code');
     if Assigned(JCode) then
     begin
       Memo2.Text:= JCode.Value' - '+JMessage.Value;
     end;

   end;
end;

espero que te sirva, no se si es lo mejor pero creo que puede servirte