delphi - EDelphi XE8 ListBox の空の行をクリックすると、「範囲外のリスト インデックス (-1)」が表示される

Question

最近、古き良き Delphi 7 から Embracadero Delphi XE8 に切り替えましたが、このエラーが常に発生しています。ListBox の空の行を誤ってクリックするたびに表示されます - D7 ではできなかったことです。これはある種のバグですか、それとも何か間違ったことをしていますか?

UPD: 問題の ListBox の 1 つの OnClick 手順は次のとおりです。

procedure TMainForm.ChoiceListBoxClick(Sender: TObject);
begin
Choice:=ChoiceListBox.Items[ChoiceListBox.ItemIndex];
ChoiceListBox.Items.Clear;
if InDialogueWith<>'' then DialoguesUnit.Dialogue
else ActionsUnit.Actions;
end;

プレーヤーの選択を変数に保存し、リストをクリアしてから、状況に応じて特定の手順に中継します。前に言ったように、DE7 ではすべてが正常に機能しました。ListBox の空の行をクリックできませんでした。