Работа с компонентом ListView

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  //   TListItem  *ListItem;  int idx=0; String myList[4]={...};
    if(idx < 4) {
     ListItem = ListView1->Items->Add();
     ListItem->Caption = myList[idx++];
     ListView1->Items->Insert(0);
     ListView1->Items->Item[0] = ListItem ;
     ListView1->Items->Delete(ListView1->Items->Count-1); 
    }
}

     ListItem = ListView1->Items->Insert(0);
     ListItem->Caption = myList[idx];

//---------------------------------------------------------------------------
void __fastcall TFormGet::sListView1CustomDrawItem(TCustomListView *Sender, TListItem *Item,
          TCustomDrawState State, bool &DefaultDraw)
{
    if(Item->Checked){
        sListView1->Canvas->Brush->Color=clYellow;
    }
}
//---------------------------------------------------------------------------

    sListView1->Items->Insert(0);
    sListView1->Items->Item[0]->Caption = Sender;
    sListView1->Items->Item[0]->ImageIndex = 3;
    sListView1->Items->Item[0]->SubItems->Add(Topic);
    sListView1->Items->Item[0]->SubItems->Add(Date);
    sListView1->Items->Item[0]->SubItems->Add(Time);
    sListView1->Items->Item[0]->SubItems->Add(ID);

TListItem *Item;
Item = sListView1->Items->Insert(0);
Item->Caption = Sender;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    // ...
    {
        AnsiString Sender;
        // тут строка sListView1->Items->Item[0]->Caption = Sender; // подразумевается строка
    }
    // тут Sender - это опять TObject*
}

    HeaderControl1->Parent = ListView1;

Sender->Canvas->Font->Color=clRed;