TProgressBar в колонке TListView

procedure TForm1.Button1Click(Sender: TObject); 
var 
  r: TRect; 
  pb: TProgressBar; 
begin 
  Listview1.Columns.Add.Width := 100; 
  Listview1.Columns.Add.Width := 200; 
  Listview1.ViewStyle         := vsReport; 
  Listview1.Items.Add.Caption := 'Text'; 
 
  r := Listview1.Items[0].DisplayRect(drBounds); 
  r.Left  := r.Left + Listview1.columns[0].Width; 
  r.Right := r.Left + Listview1.columns[1].Width; 
 
  pb := TProgressBar.Create(Self); 
  pb.Parent := Listview1; 
  pb.BoundsRect := r; 
  pb.Position := 30; 
  Listview1.Items[0].Data := pb; 
end; 
 
 
// Change the ProgressBar Position 
// ProgressBar Position andern 
 
procedure TForm1.Button2Click(Sender: TObject); 
var 
  pb: TProgressBar; 
begin 
  pb := TProgressBar(Listview1.Items[0].Data); 
  pb.StepIt; 
end;

https://delphiworld.narod.ru/

DelphiWorld 6.0