2 Stellen kommen mir komisch vor:
Zitat:
PBSum.Position:=round(i / memo1.GetTextLen * 100);
müsste es nicht 100/memo1.GetTextLen*i; sein?
als Alternative könntest du dir das aber auch sparen, wenn du die Progressbar-Länge auf die Memo-Länge setzt, und mit jedem i, PBSum.Step machst.
Zitat:
fraction[i]:=counts[i]/memo1.GetTextLen;
Sollte der Anteil nicht eine Prozentangabe sein? Ist ja klar, dass du so eine sehr kleine Zahl bekommst, weil es immer z=x/y, y>x ist und damit z<1 ist
fraction[i]:=100/memo1.GetTextLen*counts[i];