Ошибка ListBox при клике на пустую область

[Fakov]

Собственно вопрос - при клике на пустую область в ЛистБоксе (там где нет строки) - вылетает эксепшн.

Использую такой код:

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  pos: Tpoint;
begin
    if ListBox1.Items.Count > 0 then ListBox1.ItemIndex:= 0;
  pos.X:=x;
  pos.Y:=y;
  ListBox1.ItemIndex:=ListBox1.ItemAtPos(pos, true);
  selitem:=ListBox1.Items.Strings[ListBox1.ItemIndex];
  StatusBar1.SimpleText:='You are selected '+ListBox1.Items.Strings[ListBox1.ItemIndex];
end;

В чем ошибка?

[Аватар]

Потому что ItemIndex=-1. Проверяй

[Fakov]

Проверил. Родил только это:

if ListBox1.ItemIndex = -1 then exit;

При первой итерации все нормально - если загрузить листбокс и выбрать сразу пустой элемент - то все ок. Но если выбрать существующую строку, и потом уже кликнуть на пустую - то опять будет List index out of bound.

Что исправить нужно, хеелп

[Аватар]

При чем здесь итерации?

  ListBox1.ItemIndex:=ListBox1.ItemAtPos(pos, true);
  if ListBox1.ItemIndex=-1 then Exit;

[Fakov]

Спасибо большое) я эти строки аккурат в другом порядке расположил, потому и не работало)