[ApplicatiOn]

как отрисовать руками?

пример с -1 не работает:

Код:

procedure TForma.ListBox1Click(Sender: TObject);
begin
if not ListBox1.Selected[ListBox1.ItemIndex] then
ListBox1.ItemIndex := -1
end;