[Lecter]

это один и тот же код, что и в Delphi\Demos\Virtual Listview