ProgressBar w progsie do szyfrowania

no wiec tak... ma taka procedure:

procedure TForm1.Szyfruj1Click(Sender: TObject);
var
  Zn:     Byte; 
  Old:    Byte;
  x, y: integer;
  ilosc_znakow: integer;
  licznik_bajtow: integer;

begin
 Old := Start;
 for y:=0 to edytor.lines.count-1 do
        begin
         for x:=1 to length(edytor.lines[y]) do
            begin
             zn:=byte(edytor.lines[y][x]);
             Zn := Old xor Zn;
             Old := Zn;
             edytor2.Text:=edytor2.text+chr(zn);
             ilosc_znakow:=length(edytor.Text);
             inc(licznik_bajtow);
             progressbar.position:=round((licznik_bajtow*100)/ilosc_znakow);
            end;
        end;
end;

no i chcialbym, zeby moj progressbar dzialal, ale on niestety... nie chce:( pliss pomozcie

Musisz wyczyścić zmienne:

x:=0;
y:=0;
ilosc_znakow:=0;
licznik_bajtow:=0;

Dodaj to zaraz po

begin

:]

daj w tej pętelce jeszcze application.processmessages

prawie sie udalo... pasek zatrzymuje sie kilka kresek przed koncem

Wstaw na końcu 100% zapełnienia paska.. w ramach zabezpieczenia..