Problemas para deseleccionar un elemento de un listbox

[neon]

Hola, quiero deseleccionar los elementos de un listbox al entrar en otro listbox, por lo que en el evento on enter del segundo listbox pongo el siguiente código:
[for i := 0 to listbox1.Items.Count - 1 do
begin
if listbox1.Selected[i] then
listbox1.Selected[i] := False;
end;]

Y me da un error de " list index out of bounds" ¿Sabeis como puedo hacerlo?