Warunek wykonania kodu gdy w Listbox jest chociaż jeden element

Hej. Mam laickie pytanie ale z racji tego że jestem laikiem. Jak powinien wyglądać poprawnie warunek iż kod wykona się gdy jest w Listboxie jest chociaż jeden element.

If Listbox1.items.Count > 0 then

To akurat nie działa. Chodzi mi by nie wywalało błędu gdy Listbox jest pusty

Twoje rozwiązanie jest poprawne - musisz mieć błąd w innym miejscu.

@Małolat – pokaż cały fragment problematycznego kodu.

Wywala błąd List index out of bounds (-1) Po ButtonClick Skoro dobrze to po warunku button nie powinien wykonać kodu tym bardziej ze kod mam w bloku begin end.
Jeśli postawie punkt kontrolny F5 za warunkiem a później na F7 da mi to coś ? Nie umiem jeszcze zbyt używać debuggera, zresztą i tak nie wiem co dalej.

procedure TForm1.Button1Click(Sender: TObject);
begin
   if  ListBox1.Items.count > 0  then
  begin
    ListBox1.ItemIndex := Random(ListBox1.Items.Count);
     ShowDisplay(TCars(ListBox1.Items.Objects[self.ListBox1.ItemIndex]));
  end;
end; 

W której linii ten kod generuje wyjątek?