PROGRESSBAR KULLANIMI

unit Unit1;  interface  uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, StdCtrls, ComCtrls;  type   TForm1 = class(TForm)     ProgressBar1: TProgressBar;     Button1: TButton;     Button2: TButton;     Timer1: TTimer;     procedure FormCreate(Sender: TObject);     procedure Timer1Timer(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);       private     { Private declarations }   public     { Public declarations }   end;  var   Form1: TForm1;  implementation  {$R *.dfm} var i:Integer=0; procedure TForm1.FormCreate(Sender: TObject); begin ProgressBar1.Min:=1; ProgressBar1.Max:=100; ProgressBar1.Step:=2; Timer1.Interval:=50; Timer1.Enabled:=false; end;  procedure TForm1.Timer1Timer(Sender: TObject); begin if i=0 Then begin if ProgressBar1.Position>=100 Then begin i:=1; end else begin ProgressBar1.Position:=ProgressBar1.Position+5; end; end else begin if ProgressBar1.Position<=1 Then begin i:=0; end else begin ProgressBar1.Position:=ProgressBar1.Position-5; end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled:=true; end;  procedure TForm1.Button2Click(Sender: TObject); begin Timer1.Enabled:=false; end;  end.