unit a;

interface

uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type
     TForm1 = class(TForm)
         Button1: TButton; 
         ProgressBar1: TProgressBar;
         procedure Button1Click(Sender: TObject);
         procedure ProgressBar1ContextPopup(Sender: TObject; MousePos: TPoint;var Handled: Boolean);
     private
        { Private declarations }
     public
        { Public declarations }
     end;

var
     Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
      ProgressBar1.Max:=100;//将进度条长度设为100
      ProgressBar1.Position:=ProgressBar1.Position+1;//每次增加%1
end;

end.