Запрет выбора предыдущих строк в ListBox

void __fastcall form::listboxClick(TObject * Sender)
{
    static int pos = 0;
    TListBox * box = dynamic_cast<TListBox *>(Sender);
    if( pos < box->ItemIndex ) pos = box->ItemIndex;
    else if ( box->ItemIndex > 0 ) box->ItemIndex = pos; // если box->ItemIndex == -1, то ничего не выбрано, а значит и делать ничего не надо 
}

int PositionIndex;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        PositionIndex = 2; // 3 ñòðîêà
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
        PositionIndex = ListBox1->ItemIndex < PositionIndex + 1 ? PositionIndex : ListBox1->ItemIndex;
        ListBox1->ItemIndex = PositionIndex;
}
//---------------------------------------------------------------------------

       ListBox1->Selected[ListBox1->ItemIndex] = ListBox1->ItemIndex < PositionIndex + 1 ? false : true;
       Caption = ListBox1->ItemIndex;

//---------------------------------------------------------------------------
void __fastcall TForm1::lbo2Click(TObject *Sender)
{
    lbo2->ItemIndex = -1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::lboxMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    static int idxB1=0;
    if (Button==mbLeft) {
      idxB1 = Y/lbox->ItemHeight ;
      lbo2->Height = lbo2->ItemHeight * idxB1;
    }
    if (Button==mbRight) lbo2->Height = 0;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    lbo2->Height = 0;
    lbox->ItemIndex = 0;
    Label1->Caption = lbox->Items->Strings[0];
}
//---------------------------------------------------------------------------
void __fastcall TForm1::lboxClick(TObject *Sender)
{
     Label1->Caption = lbox->Items->Strings[lbox->ItemIndex] ;
}
//---------------------------------------------------------------------------