变量的引用,该如何解决

变量的引用
以下示例在delphi中是不允许的，但有没有实现类似功能的用法
   
          Val1   :=   'abc '   ;
          Val2   :=   Ary[Val1]   ;
      //则   Val2   =   'abc '   ;



[解决办法]
Ary[Val1] <-- 不是太明白这个写法的含义。
[解决办法]
用TStringList吧!

procedure TForm1.Button1Click(Sender: TObject);
var
S: TStrings;
Val1: String;
begin
S := TStringList.Create;
try
S.Values[ 'abc '] := '12345 ';
S.Values[ 'def '] := '23456 ';
Val1 := 'abc ';
ShowMessage(S.Values[Val1]);
finally
S.Free;
end;

end;