[[escafandra]]

    TListView *listaBPs;
    original = 'c';
    int valor = 1000;

    //Creo el listview
    listaBPs = new TListView(Application->MainForm);
    listaBPs->ViewStyle = vsReport; // Para visualizar con columnas
    //le indico cual es su parent
    listaBPs->Parent = Application->MainForm;

    //Añadimos una columna por cada subitem SON TRES COLUMNAS
    listaBPs->Columns->Add();  // Para Caption
    listaBPs->Columns->Add();  // Para Subitem1
    listaBPs->Columns->Add();  // Para Subitem2

    //Añado un item y le añado dos subitems
    TListItem  *ListItem = listaBPs->Items->Add();
    // El array listaBPs->Items->Item comienza en CERO !!!!
    listaBPs->Items->Item[listaBPs->Items->Count-1]->SubItems->Add(valor);   
    listaBPs->Items->Item[listaBPs->Items->Count-1]->SubItems->Add(original);

    //Añado un item y le añado dos subitems
    ListItem = listaBPs->Items->Add();
    listaBPs->Items->Item[listaBPs->Items->Count-1]->SubItems->Add(valor+1);
    listaBPs->Items->Item[listaBPs->Items->Count-1]->SubItems->Add(original);

    listaBPs->Update();   // Para visualizar los cambios
    Sleep(1000);            // Para ver que ha pasado
    //borro el listview
    delete listaBPs;

Saludos.