TStringList como key->value de string e objeto

tstringlist.pas

procedure Exemplo();
var
    Nomes, NomesTemp: TStringList;
    Nome, Temp: String;
    Idade: Integer;
    Objeto: TObject;
begin
    Nomes := TStringList.Create();
    Nomes.AddObject('João',      TObject(21));
    Nomes.AddObject('Luiz',      TObject(13));
    Nomes.AddObject('Otávio',    TObject(27));
    Nomes.AddObject('Josué',     TObject(53));
    Nomes.AddObject('Frederico', TObject(3));

    for Nome in Nomes do
    begin
        Temp := Nome
    end;

    Objeto := TObject(Nomes);
    NomesTemp := TStringList(Objeto);

    for Nome in NomesTemp do
    begin
        Temp := Nome;
        Idade := Integer(NomesTemp.Objects[NomesTemp.IndexOf(Nome)]);
    end;
end;