SelectedItems example for Delphi

var
   x: integer;
begin
    x:= LEADImgList1.SelectedCount;
    while (x > 0) do
    begin
       LEADImgList1.SelectedItems[0].Selected:= False;
      x:= LEADImgList1.SelectedCount;
    end;
end;