Pasek postępu w listview

Witam, czy spotkał się ktoś z problemem połączenia paska postępu z listview, otóż ja tak lecz patrzyłem kod podany tutaj http://delphi.about.com/library/weekly/aa053105a.htm i niestety ale mam problem z dodaniem pasku do subitem'a np.2 proszę o pomoc.

Tzn. subitema o indexie dwa.

Przecież w tym artykule masz wszystko podane jak na dłoni - jest:

1. Tworzenie nowego Item'a,
2. Tworzenie ProgressBar'a
3. Wpakowanie ProgressBar'a do Data itema,
4. Usuwanie itema wraz z paskiem postępu.
   Nie wiem czego jeszcze oczekujesz;

Skup się nad tym, że kontrolkę paska postępu pakujesz do Data itemu; Przy usuwaniu ją zwalniasz i poniższe przesuwasz;

Na podstawie różnych kodów znalezionych na sieci wykombinowałem coś takiego, co dołaczam do tego posta. Skrolowanie rolką lub ScrollBarem niekiedy działa lepiej, a niekiedy pozostają na dole "martwe" czyli nieprzesunięte itemy. To spróbuj sobie sam dopracować. Procedura LVGetIndexes tłumaczona z kodu w C++ z MSDN. Natomiast oryginalny kod, który dodawał itemy nie miał w ogóle zrobionej obslugi scrollowania LV.