Delphi-Help

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;

procedure TForm1.Button2Click(Sender: TObject); 

var 

  pb: TProgressBar; 

begin 

  pb := TProgressBar(Listview1.Items[0].Data); 

  pb.StepIt; 

end;