что выбрано в listbox по умолчанию?

[Izlom]

У меян есть кнопка, которая удаляет выделенуб строку из listbox. Но если нажать на кнопку, но при этом ничего не выделить то выскакивает ошибка: list index out of bounds (-1)
Пытался через if... then сделать. но ничего не получилось. Просто я не знаю, какое значение по умолчанию...

Подскажите, как решить эту проблему.
Вот этот кусок кода:

procedure TForm2.Button3Click(Sender: TObject); // КНОПКА УДАЛИТЬ
begin
 Stih:=ListBox1.Items[ListBox1.ItemIndex];
 deleteFile('UserFiles/'+stih+'.SR');
 ListBox1.Items.Delete(ListBox1.ItemIndex);
 ListBox1.Items.SaveToFile('userFiles/SP_STIH.SR');
end;

[Roof]

ItemIndex = -1 по умолчаню в ListBox.

procedure TForm2.FormCreate(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to 10 do
    L.Items.Add(IntToStr(i)); // L - это ListBox1
  L.ItemIndex := 0; // вот тут делаем ItemIndex равный 0. Нумерация Item'ов c 0
end;

вот, как вариант.
или в своей процедуре прописывай условие:

...
if L.ItemIndex < 0 then ShowMessage('Не выбран пункт для удаления'); //или другие действия прописывай
..

[ex.cluz]

Тут надо бы оформить через try...except...end
В except'е выводить сообщение, что не выбран не один итем.

[Izlom]

Все понял.
Спасибо вам большое