Grupowanie tłumaczeń programu względem danej właściwości

Witam,
piszę pewien program, który na starcie wczytuje ustawienia, a wraz z ustawieniami tłumaczenie wybranego przez użytkownika języka. Wszelakie ustawienia, oraz tłumaczenia wczytuje z XML'a. Początkowo strukturę XML'a tłumaczenia podzieliłem na coś takiego:

    <MenuForm>
      <Buttons>
        <Caption name="sbCut" trans="Cut" />
        <Caption name="sbPaint" trans="Paint Edit" />
        <Caption name="sbCancel" trans="Cancel" />
        <Caption name="sbUpload" trans="Upload" />
        <Caption name="sbSave" trans="Save" />
      </Buttons>
    </MenuForm>

Gdzie atrybut name to nazwa komponentu, a trans to tłumaczenie. Jednakże z czystej ciekawości postanowiłem sprawdzić czy można to zrobić w ten sposób:

    <MenuForm>
      <Caption name="sbCut" trans="Cut" />
      <Caption name="sbPaint" trans="Paint Edit" />
      <Caption name="sbCancel" trans="Cancel" />
      <Caption name="sbUpload" trans="Upload" />
      <Caption name="sbSave" trans="Save" />
      <Caption name="rTest" trans="Test" />
      <Caption name="lTest" trans="Test2" />
    </MenuForm>

Ideą było, by grupować tłumaczenia jedynie po właściwości, którą będę modyfikował (w tym wypadku Caption), a nie jak wyżej po danej klasie. Dzięki temu oszczędziłbym dużo czasu. Tak więc napisałem mniej więcej coś takiego:

const
  XML_LANG_CAPTION = 'Caption';
  XML_A_NAME = 'name';
  XML_A_TRANS = 'trans';

var
  Obj: TObject;
  TransNode: IXMLNODE;


[...]

    TransNode:=ClassNode.ChildNodes.First;
    repeat
      if(TransNode.LocalName=XML_LANG_CAPTION)then begin
        Obj:=MenuForm.FindComponent(TransNode.Attributes[XML_A_NAME]);
        if(Assigned(Obj))then
          TLabel(Obj).Caption:=TransNode.Attributes[XML_A_TRANS]
        else
          raise Exception.Create(E_XML_LOAD);
      end;
      TransNode:=TransNode.NextSibling;
    until(TransNode=nil);

Nie wpadłem na lepszy pomysł, jak na rzutowanie obiektu Obj na jakiś pierwszy lepszy komponent, który posiada właściwość Caption, w tym wypadku TLabel. Muszę przyznać, że przed wciśnięciem F9 byłem pewny, że nie zadziała, a tu ku mojemu zaskoczeniu Captiony zostały zmienione według tłumaczeń, żadnych błędów - przynajmniej na razie. Dodam, że wcześniej próbowałem zamiast:

TLabel(Obj).Caption

zrobić w ten sposób:

(Obj as TLabel).Caption

W ten sposób co prawda się kompilowało, jednak na tym koniec.

Założyłem ten wątek by dowiedzieć się czy jest to bezpieczny sposób, a jeśli nie - w jaki inny sposób można to wykonać, czy po prostu grupować względem klas?

PS. Mam nadzieję, że wszystko wyjaśniłem i wiadomo o co chodzi, umysł już na dzisiaj ma dosyć, a nie mogę z tym zwlekać.

jest bezpieczny ale musisz być pewien, że obiekt, który rzutujesz na np. TLabel posiada taką właściwość do której chcesz się odwołać. Jeśli jej nie będzie miał to po prostu dostaniesz AV. as sprawdza czy obiekt jest dzieckiem danej klasy i jeśli nie jest to zgłasza błąd. Możesz też ustawiać te właściwości przez RTTI - najpierw sprawdzasz czy obiekt posiada daną właściwość i jak ma to ją zmieniasz

RTTI - nigdy się z tym nie spotkałem. Najwyższy czas więc :) Więc w teorii tak jak jest mogło by zostać, jednak w praktyce nie wygląda mi to na fachowe rozwiązanie, dlatego skorzystam z RTTI.

Dzięki wielkie :)