List index out of bounds

Hej,

Jeg har en listbox hvortil brugeren kan tilføje elementer.
Elementerne gemmes, når der trykkes på en knap, i variabler:

  gr01 := Listbox1.Items[0];
  gr02 := Listbox1.Items[1];
  gr03 := Listbox1.Items[2];
  gr04 := Listbox1.Items[3];
  gr05 := Listbox1.Items[4];
  gr06 := Listbox1.Items[5];
  gr07 := Listbox1.Items[6];
  gr08 := Listbox1.Items[7];
  gr09 := Listbox1.Items[8];
  gr10 := Listbox1.Items[9];
  gr11 := Listbox1.Items[10];

(der kan max. være 11 elementer i listboxen).

Når jeg ikke har indsat nogle elementer i listboxen og trykker på knappen, så siger den "List index out of bounds".

Det skal den jo ikke gøre. Jeg ønsker at kunne aflæse, om der er skrevet noget i et enkelt item, og det gør jeg således:

  if gr01 = '' then
    Unit1.Form1.Edit1.Text := 'You did not choose anything.';

Kan man ikke gøre sådan?

Jeg aner bare ikke hvorfor den kommer op med den fejl der.


Og i det Edit1 felt der, der skal stå forskellige ting, alt efter om hvor mange items der er sat ind i Listboxen.