listbox i random

dlaczego w ponizszym przykladzie wyskakuje mi blad : Unable tp insert a line.
jak mam to poprawic by dzialalo?

listbox1.itemindex:=random(18);

if ListBox1.Items.Strings[listbox1.itemindex] = 'aaa' then
ListBox2.Items.Strings[listbox1.itemindex] := 'aaa';

if ListBox1.Items.Strings[listbox1.itemindex] = 'bbb' then
ListBox2.Items.Strings[listbox1.itemindex] := 'bbb';

A czy elementów w listboxie jest co najmniej 17? Jeśli nie, to powinno wywalić list index out of bands. Najlepiej zrób random(ilośc elementów).