다음은 작성한 문장입니다
uses dbxjson;

procedure TForm1.Button2Click(Sender: TObject);
const hochul =
'{"아이피":"192.168.21.100","date":"2014-03-16","time":"22:23:01"}';
var

  JSON: TJSONObject;
  StringBytes: TBytes;
  I: Integer;
  rec_data : string;
begin

  rec_data    :=  trim(hochul);
  StringBytes :=  ( TEncoding.utf8.GetBytes(rec_data);          
  JSON        :=  TJSONObject.Create;
  json        :=  tjsonobject.ParseJSONValue(stringbytes,0) as tjsonobject;

  try
      Memo1.Lines.Add(JSON.ToString);
      for I := 0 to JSON.Size - 1 do
          Memo1.Lines.Add(JSON.Get(i).JsonString.Value +  ' : ' + JSON.Get(i).JsonValue.Value);
  finally
    JSON.Free;
  end;
end;

결과는 이렇게 출력됩니다

{"¾ÆÀÌÇÇ":"192.168.21.100","date":"2014-03-16","time":"22:23:01"}
¾ÆÀÌÇÇ : 192.168.21.100
date : 2014-03-16
time : 22:23:01


한글 "아이피"라른 부분만 깨집니다
환경은 del2010 입니다 dbxjson 부분을 수정해야 하는건지 저가 좀 json은 생소해서
고수님들의 한수 의견 부탁합니다.