Загрузка данных из XML документа. В RadioButton.Caption не отображается значение!

procedure TForm2.FormCreate(Sender: TObject);
 
var
  Root: IXMLNode;
  i:    integer;
 
  begin
    XMLDocument1.LoadFromFile('test.xml');
    XMLDocument1.Active:= true;
    Root:= XMLDocument1.DocumentElement.ChildNodes[0].ChildNodes['Question'];
    Label1.Caption:= Root.ChildNodes[0].Text;
    Root:= XMLDocument1.DocumentElement.ChildNodes[0].ChildNodes['Answer'];
    if Root.Attributes['type'] = 'RadioButton' then
      if Root.ChildNodes.Count > 0 then
        begin
          for i:=1 to Root.ChildNodes.Count do
            case i of
              1:RadioButton1.Caption:= Root.ChildNodes.Nodes[i-1].Text;
              2:RadioButton2.Caption:= Root.ChildNodes.Nodes[i-1].Text;
              3:RadioButton3.Caption:= Root.ChildNodes.Nodes[i-1].Text;
              4:RadioButton4.Caption:= Root.ChildNodes.Nodes[i-1].Text;
              5:RadioButton5.Caption:= Root.ChildNodes.Nodes[i-1].Text;
            end;
        end;
 
        begin
          for i:=1 to Root.ChildNodes.Count do
            case i of
              1:RadioButton1.Visible:= true;
              2:RadioButton2.Visible:= true;
              3:RadioButton3.Visible:= true;
              4:RadioButton4.Visible:= true;
              5:RadioButton5.Visible:= true;
            end;
        end;
 
  end;
end.

procedure TForm1.Button1Click(Sender: TObject);
const
  Fn = 'test.xml';
var
  Root, Quest, Ans : IXMLNode;
  i, j : integer;
  Lbl : TLabel;
  RBtn : TRadioButton;
  Od : TOpenDialog;
begin
  Od := OpenDialog1;
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath(Application.ExeName)
  ;
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    ShowMessage('Файл с заданным именем не существует. Действие отменено.');
    Exit;
  end;
 
  XMLDocument1.LoadFromFile(Od.FileName);
  XMLDocument1.Active := True;
  Root := XMLDocument1.DocumentElement.ChildNodes[0];
  for i := 0 to Root.ChildNodes.Count - 1 do begin
    Quest := Root.ChildNodes[i].ChildNodes['quest'];
    Lbl := Self.FindComponent('Label' + IntToStr(i + 1)) as TLabel;
    if Lbl <> nil then Lbl.Caption := Quest.Text;
    Ans := Root.ChildNodes[i].ChildNodes['answer'];
    if (Ans <> nil) and (Ans.Attributes['type'] = 'RadioButton') then
    for j := 0 to Ans.ChildNodes.Count - 1 do begin
      RBtn := Self.FindComponent('RadioButton' + IntToStr(j + 1)) as TRadioButton;
      if RBtn <> nil then begin
        RBtn.Caption := Ans.ChildNodes[j].Text;
        RBtn.Visible := True;
      end;
    end;
  end;
end;