void __fastcall TForm1::Button1Click(TObject *Sender)
{
       TListItem *ListItem;
       ListView1->Items->BeginUpdate();
        if(ListView1->Selected == NULL) {
                ListItem = ListView1->Items->Add();
                ListItem->Caption = "aaaa";
                ListItem->SubItems->Add("bbbb");
        }
        else{
                ListItem = ListView1->Items->AddItem(ListItem,ListView1->Selected->Index+1);
                ListItem->Caption = "cccc";
                ListItem->SubItems->Add("dddd");   <-----  이 부분!!!!!!!!!!!!!!!!!!!!
        }

        ListView1->Items->EndUpdate();
}

폼에 ListView1(2개의 Column이 있습니다.) 이 있고 Button1을 클릭하면 아이템을 입력합니다.
리스트 뷰에서 선택된 아이템이 없으면 마지막줄에 "aaaa","bbbb" 라고 입력이 되고
리스트 뷰에서 선택된 아이템이 있으면 그 아래줄에 "cccc","dddd" 라고 입력할 의도로 코딩한 것인데.. SubIems을 입력하는 부분에서 런타임시 에러가 납니다. 뻘건 X 박스 뜹니다..ㅠ. ㅠ

제발 고수 분들의 도움 바랍니다.