[Delphi] Текстовый индекс в массиве - возможно ли?

Например, one['two']:='three';

 

http://tinyurl.com/ckv997n

 

Если текст-текст, то TStringList

Code:

a:=TStringList.Create;
try
  a.values['one']:='two';
  ShowMessage(a.Values['one']);
  a.Clear;
  a.NameValueSeparator:='=';
  a.Add('1=2');
  ShowMessage(a.Values['1']);
finally
  a.Free;
end;

 

Всем громадное спасибо