Вывод массива в ListView

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString array1[5], array2[5], array3[5];
    TListItem *ListItem;
    ListItem = ListView1->Items->Add();
    for (int i = 0; i < 5; i++) {
        array1[i] = i+1;
        array2[i] = i+10;
        array3[i] = i+100;
        ListItem->Caption = array1[i];
        ListItem->SubItems->Add(array2[i]);
        ListItem->SubItems->Add(array3[i]);
    }

    AnsiString array1[5], array2[5], array3[5];
    TListItem *ListItem;
    for (int i = 0; i < 5; i++) {
        array1[i] = i+1;
        array2[i] = i+10;
        array3[i] = i+100;
        ListItem = ListView1->Items->Add(); // <--- Это должно быть в цикле !!!
        ListItem->Caption = array1[i];
        ListItem->SubItems->Add(array2[i]);
        ListItem->SubItems->Add(array3[i]);
    }

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString array1[5], array2[5], array3[5];
    TListItem *ListItem;
    for (int i = 0; i < 5; i++) {
        array1[i] = i+1;
        array2[i] = i+11;
        array3[i] = i+101;
        ListItem = ListView1->Items->Add();
        ListItem->Caption = array1[i];
        ListItem->SubItems->Add(array2[i]);
        ListItem->SubItems->Add(array3[i]);
        if (array1[i]==4) {
               SetItemColor(ListView1->Items->Item[i], clRed);
        }
    }
// функция, которая будет менять цвет
void TForm1::SetItemColor(TListItem *ListItem, TColor Color)
{
    Item->Data = Pointer(Color);
}
 
// обработчик отрисовки item'а
void __fastcall TForm1::ListView1CustomDrawItem(TCustomListView *Sender, TListItem *ListItem,
          TCustomDrawState State, bool &DefaultDraw)
{
    Sender->Canvas->Font->Color = TColor(Item->Data);
}

public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    void SetItemColor(TListItem *ListItem, TColor Color); // Это не добавил

void TForm1::SetItemColor(TListItem *ListItem, TColor Color)
{
    ListItem->Data = Pointer(Color); // ListItem, а не Item
}