[Delphi] Progressbar do Listview

var
    pb: TProgressBar;
begin
 pb:= TProgressBar.Create(self);
 pb.Parent := Listview1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  polozka: TListItem;
  polozkaRect: TRect;

begin

  pb := TProgressBar.Create(nil);
  pb.Parent := ListView1;
  pb.Position:= 60;

  polozka := ListView1.Items.Add;
  polozka.Data:= pb;

  polozkaRect := polozka.DisplayRect( drBounds );
  polozkaRect.Left := 1;       // kde ma ProgressBar zacinat
  polozkaRect.Right := ListView1.Columns[0].Width - 1;  // kde ma koncit (je to vlastne jeho sirka)
  pb.BoundsRect := polozkaRect;

end;

procedure TForm2.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
  var bnds : TRect;
begin
  if (Item.Data<>nil) and TObject(Item.Data).ClassNameIs('TProgressBar') then begin //otestujem ci item ma priradeny objekt a ci ten objekt je typu progressbar
      bnds := Item.DisplayRect(drBounds );
      DefaultDraw := true; // nastavit aby prvy stlpec mal zachovane povodne vykreslovanie
      with TProgressBar(Item.Data) do begin
        SetBounds(bnds.Right- Sender.Column[2].Width,bnds.Top,Sender.Column[2].Width,bnds.Bottom-bnds.Top);
      end
  end;
end;