ترتيب الارقام في ليست فيو

[invocker]

كود :

procedure TForm1.Button1Click(Sender: TObject); var   item: TListItems;   i, x: integer; begin   item := ListView1.Items;   x := 0;   for i := 100 downto x do   begin     item.Add;     item.item[x].SubItems.Add(IntToStr(i));     inc(x);   end; end;