JSON проверить существование значения

[Dozent]

Добрый день! такая проблема! По сети приходят разные сообщения в формате JSON

допустим вот такое приходится при подключении

{
    "id": "GUID клиента",
    "version": "версия ПО клиента" 
}

и допустим сообщения о пинге, овталился или нет!

{
    "ping": 0
}

Обрабатываю так

procedure TSetCacheThreadTCP.DoRecv;
var
  Xml: TXml;
  jsObject: TJSONObject;
  iPingValue: integer;
  sValue: string;
  // itemxml: TXmlItem;
begin
{$IFDEF JSON}
  jsObject := TJSONObject.ParseJSONValue(FBufferRecv) as TJSONObject;
{$ELSE}
  Xml := TXml.Create;
{$ENDIF}
  try
{$IFDEF JSON}
     iPingValue := StrToInt(jsObject.GetValue('ping').Value);
   // iPingValue := StrToInt(jsObject.Values['ping'].Value);
    if iPingValue = 0 then
      Self.Send := GetNetMessagePong;
{$ELSE}
    Xml.DataXML := FBufferRecv;
{$ENDIF}
    //
{$IFDEF DEBUG}
    LogRecv(FBufferRecv);
    if Assigned(MainForm) then
      MainForm.BegubMemoRecv.Lines.Add(FBufferRecv);
{$ENDIF}
    // if Xml.Root.Attribut('id') <> '' then
    // begin
    // закидываем данные в хранилище
    while not TransportCacheList.Blocked do
    begin
      // If not TransportCacheList.Blocked then
      // begin
      TransportCacheList.Block;
{$IFDEF JSON}
      JSONToReadValuesList(jsObject);
{$ELSE}
      XmlToReadValuesList(Xml);
{$ENDIF}
      // TransportCacheList.UnBlock;
      // end
      // else
      // Sleep(Random(200));
    end;
    TransportCacheList.UnBlock;
    // проверить на наличие тега ошибки и запустить процедуру ошибки или же нет?
    // end;

  finally
    FreeAndNil(Xml);
  end;
  // а тепер ьвызываем срабатывание события в родители
  inherited;
end;

   iPingValue := StrToInt(jsObject.GetValue('ping').Value);

Тут вываливаеться с ошибкой, потмоу что приходит первое сообщение где нет ключа ping? как проверить наличие данного ключа?

[lomastr_]

что такое ссылочный тип и что такое value тип понимаете?

[Dozent]

проблему решил

    jsValue := jsObject.GetValue('ping');
    // if Assigned(jsObject.GetValue('ping')) then
    if Assigned(jsValue) then
    begin
      // iPingValue := StrToInt(jsValue.Value);
      if StrToInt(jsValue.Value) = 0 then
        Self.Send := GetNetMessagePong;
    end;