bi progressbar olusturun sonra bi buton butona çift tıklayarak bu kodaları yazın not:koyu yazılan yer sizdede var yazmayın

procedure TForm1.Button1Click(Sender: TObject);
var x: integer;
begin
devam:=true;
ProgressBar1.Min :=0;
ProgressBar1.Max :=1000000;

for x := 0 to 1000000 do
begin
ProgressBar1.Position :=x;
if devam=false then break;
Application.ProcessMessages;
end;

end;