procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  keys: TStrings;
  value: String;
  item: TListItem;
  i: Integer;
begin
  keys := TStringList.Create;
  if Assigned(TreeView1.Selected) then
  begin
    ListView1.Items.Clear;
    FListIni.ReadSection(TreeView1.Selected.Text, keys);
    if keys.Count > 0 then
    begin
      for i := 0 to keys.Count - 1 do
      begin
        value := FListIni.ReadString(TreeView1.Selected.Text, keys.Strings[i],'');
        item := ListView1.Items.Add;
        item.Caption := keys.Strings[i];
        item.SubItems.Add(value);
      end;
    end;
  end;
  keys.Free;
end;