Problem mit xml File auslesen und in TTreeView anzeigen

[Mackhack]

Hi,

ich bekomme leider nicht das gewuenschte Resultat mit diesem Code. Er sollte mir nur eine Translation hinschreiben per ObjectName. Wie das ganze aussieht seht ihr im Screenshot.

Delphi-Quellcode:

procedure TfoFrmMain.ShowLanguagesInTreeView;
var
  I, J, K, L: Integer;
  lLanguageNode, lTFormNode, lTransNode: TTreeNode;
begin
  TV.Items.Clear;
  for I := Low(Languages) to High(Languages) do
  begin
    lLanguageNode := TV.Items.Add(nil, 'Sprache: ' + Languages[I].FLanguage);
    for J := Low(Languages) to High(Languages[I].TForms) do
    begin
      lTFormNode := TV.Items.AddChild(lLanguageNode, 'Form: ' + Languages[I].TForms[J].FormName);
      for K := Low(Languages) to High(Languages[I].TForms[J].TWords) do
      begin
        lTransNode := TV.Items.AddChild(lTFormNode, 'ObjektName: ' + Languages[I].TForms[J].TWords[K].ObjectName);
        for L := Low(Languages) to High(Languages[I].TForms[J].TWords) do
          TV.Items.AddChild(lTransNode, 'Translation: ' + Languages[I].TForms[J].TWords[K].TranslatedString)
      end;
    end;
  end;
  // Alle Knoten öffnen
  TV.FullExpand;
end;

Kann mir mal jemand sagen was falsch ist?