在Delphi中，可以使用TJsonTextReader類來讀取JSON對象并查找特定的值。要判斷一個值是否存在于JSON中，可以按照以下步驟操作：

var
jsonText: string;
reader: TJsonTextReader;
propName, propValue: string;
begin
jsonText := '{"name": "John", "age": 30, "city": "New York"}';
reader := TJsonTextReader.Create(jsonText);
while reader.Read do
begin
if reader.TokenType = TJsonToken.PropertyName then
begin
propName := reader.Value.AsString;
end
else if reader.TokenType = TJsonToken.String then
begin
propValue := reader.Value.AsString;
if (propName = 'name') and (propValue = 'John') then
begin
ShowMessage('Value found!');
Break;
end;
end;
end;
reader.Free;
end;

在這個示例中，我們使用TJsonTextReader類來讀取jsonText字符串中的所有屬性。當讀取到屬性名稱時，我們將其存儲在一個變量中。當讀取到屬性值時，我們將其存儲在另一個變量中，并檢查它是否與我們要查找的值匹配。

如果我們找到了我們要查找的值，我們可以執行相應的操作，例如顯示一條消息或從JSON字符串中提取其他值。