ListBox

[Applod]

Подскажите, возможен ли вообще такой код:

if (a<>ListBox1.Items[0] and
ListBox1.Items[1]and
ListBox1.Items[2]and
ListBox1.Items[3]and
ListBox1.Items[4]and
ListBox1.Items[5]and
ListBox1.Items[6]and
ListBox1.Items[7]and
ListBox1.Items[8]and
ListBox1.Items[9]and
ListBox1.Items[10]and
ListBox1.Items[11]and
ListBox1.Items[12]and
ListBox1.Items[13]) then
ShowMessage('Error: Данного раздела нет в содержании.');

Если нет подскажите как реализовать выдачу "ShowMessage" если "a" не совпадает не с одним из строковых значений ListBox1.Items ?

[veniside]

if (0 > ListBox1.Items.IndexOf(a)) then
  ShowMessage('Данного раздела нет в содержании');

[Applod]

Сообщение от veniside

if (0 > ListBox1.Items.IndexOf(a)) then
  ShowMessage('Данного раздела нет в содержании');

А можно немного поподробнее, что делает IndexOf(a), и почему >0 ?

[Delphi_ProGer]

Мой вариант:

var i: integer;
res: boolean=False;

...

for i:=0 to 13 do
if a=ListBox1.Items[i] then
begin
res:=True;
break; 
end;

if res=false then  ShowMessage('Error: Данного раздела нет в содержании.')
else
ShowMessage('Есть в содержании.');