Работ с ListBox

[Vito89]

как проконтролировать чтоб били нажати все строки ListBox-a и узнать номери не нажатих.

[Maxs]

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
E:Boolean;
n:string;
begin
E:=True;
n:='Индексы не выделенных строк: ';
for i := 0 to ListBox1.Items.Count-1 do
begin
if ListBox1.Selected[i]=False then
begin
E:=False;
n:=n + IntToStr(i) + ' ; ';
end;
end;
if E=True then
ShowMessage('Выделены все строки')
else
ShowMessage(n);
end;