[angvelem]

Попробуй так:

Код:

  form5.ListBox1.ItemIndex := 0;
  for a := 0 to form5.ListBox1.Items.Count -1  do 
  begin
     if Form5.ListBox1.Items[Form5.ListBox1.ItemIndex] = 'Заголовок' then
       Break;
  end;

ну и далее.