Variable über zusammengesetzte Strings ansprechen

[QuickAndDirty]

Delphi-Quellcode:

TNamen = (Hans,Peter, Uwe, Otto);
Const AdresseVon : array[TNamen] of String = ('Wilhelmstrasse', 'Otterweg', 'Pupsweg', 'Blödweg');
Const Namen: array[TNamen] of String = ('Hans','Peter','Uwe','Otto');

Function FindConst(aString:tString):tname;
var i:integer;
    gefunden:boolean;
begin
  gefunden := false
  For i := integer(Hans) to integer(otto) do
  Begin
    if namen[tnamen(i)] = astring then
    Begin
      gefunden := true;
      result := tnamen(i);
      break;
    end;  
  end; 
  if not gefunden then
    Raise Exception.create('Dumme sache');
end;

Sowas ungefähr könnte gehen