http://delphi-hlp.ru/index.php/tprogressbar/progressbar-v-kolonke-tlistview.html/