Primzahl

[infofa1]

while zahl<=n do
begin
prim:=true;
teiler:=zahl;
wurzel:=sqrt(n);
while (teiler <= wurzel) and (prim) do
begin
if zahl mod teiler=0 then prim := false;
teiler:=teiler + 1 ;
end;
inc(zahl)
end;
if prim = True then
listbox1.Items.Add (inttostr(zahl));

habe wieder was besserers^^

jetzt kommt in der listbox aber nur 2 und 101 wenn ich n=100 eingeb
????