procedure TBomTestF.ListView1DblClick(Sender: TObject);
var
  PNode, CNode : TTreeNode;
begin
  if ListView1.Selected.ImageIndex = 0 then
    begin
      PNode := TreeView1.Selected;
      CNode := PNode.getFirstChild;
      while CNode <> nil do
        begin
          if CNode.Text = ListView1.Selected.Caption then
            begin
              CNode.Selected := True;
              CNode.Expanded := True;
              Exit;
            end;
          CNode := CNode.getNextSibling;
        end;
    end;
end;

ViewStyle은 vsReport 이고요 A컬럼은 에러 안나구요 B,C,D더블클릭하면 에러 납니다. 살려주세요
================================================================
A            B               C            D
================================================================