Fortschritt darstellen

[whiteshark]

Moin Leute;

Ich habe mal wieder ein Problem. Wir sollen ein Programm schreiben, dass die Sortieralgorithmen vergleicht. Das ist mit ja gelungen. Nun wollte ich als kleine Spielerrei einen Fortschrittbalken einbauen. Ich wollte ihn der einfach halber erst mal nur für das Zufallsfahlen generieren verwenden.

Delphi-Quellcode:

procedure listefuellen
var a:array[1..100000] of integer;
var check:integer;
var n:integer;
begin

n:=strtoint(edit1.text);
randomize;

check:=n/10;

for i:=1 to n do
        begin
        a[i]:=random(n+10);
        end;

for j:=1 to n do
        begin
        if(j>=1*check) then image_fort1.Visible:=true;
        if(j>=2*check) then image_fort2.Visible:=true;
        if(j>=3*check) then image_fort3.Visible:=true;
        if(j>=4*check) then image_fort4.Visible:=true;
        if(j>=5*check) then image_fort5.Visible:=true;
        if(j>=6*check) then image_fort6.Visible:=true;
        if(j>=7*check) then image_fort7.Visible:=true;
        if(j>=8*check) then image_fort8.Visible:=true;
        if(j>=9*check) then image_fort9.Visible:=true;
        if(j>=10*check) then image_fort10.Visible:=true;
        memo1.lines.add(inttostr(a[j]));
        end; // end of if-abfrage
end; // end of LISTEFÜLLEN

Meine Idee war es, immer die Zehntel abzufragen. Immer wenn ein Zehntel voll ist soll der Balken um eine Einheit zunehmen. D.h. wenn für n=65000 eingesetzt wird müsste alle 6500 eine Einheit addiert werden. Das tut es aber net. Wo liegt das Problem?