Не работают Format, ToString, as string в переменных типа object. Что делать?

writeln(asa); //выдаёт значение нормально
var asas : string := format('{0}',asa);
writeln(asas); //выдаёт значение System.Collections.Generic.Dictionary`2[System.String,System.Object]

writeln(asa); //выдаёт значение нормально
var asas : string := asa.ToString;
writeln(asas); //выдаёт значение System.Collections.Generic.Dictionary`2[System.String,System.Object]

writeln(asa); //выдаёт значение нормально
var asas : string := asa as string;
writeln(asas); //выдаёт значение System.Collections.Generic.Dictionary`2[System.String,System.Object]

type Dic = Dictionary<string, object>;

foreach var t in asa do
begin
var x := Dic(t);
WritelnFormat('{0}', x['snippet'])
end;

type Dis = Dictionary<object, string>;

var asas := ((asa as Dis) as string);

procedure Form2.button2_Click(sender: Object; e: EventArgs);
type
  Dic = Dictionary<string, object>;
  ObjArr = array of object;
begin
  var jdata : string := ReadAllText('json.txt'); //json.txt см. выше, а откуда взят этот json.txt - это конфиденциальная информация
  var asa := ((jss.DeserializeObject(jdata) as Dic)['items'] as ObjArr);
  writeln(asa); //выдаёт значение нормально, десериализованное содержимое файла json.txt
  var asas := asa.ToString;
  writeln(asas) //выдаёт значение System.Collections.Generic.Dictionary`2[System.String,System.Object]
end;

type
  Dic = Dictionary<string, object>;
  ObjArr = array of object;
begin
  var jdata : string := ReadAllText('json.txt');
  var asa := ((jss.DeserializeObject(jdata) as Dic)['items'] as ObjArr);
  writeln(asa);
  var asas:= asa[3] as Dic;
  var asasa:=asas['title'];
  writeln(asasa)
end.

{$reference System.Web.Extensions.dll}
uses System.Collections.Generic, System.Web.Script.Serialization;
 
type
  Dic = Dictionary<string, object>;
  ObjArr = array of object;
 
begin
  var jdata: string := ReadAllText('json.txt', Encoding.UTF8);
  var jss := new JavaScriptSerializer();
  var asa := ((jss.DeserializeObject(jdata) as Dic)['items'] as ObjArr);
  foreach var t in asa do
  begin
    var x := Dic(t);
    if x.ContainsKey('snippet') then writeln(Dic(x['snippet'])['title'])
  end;
end.