Primzahlen Sieb

[harryi]

Hallo,

ich programmiere zurzeit als Anfänger einen Primzahlen Sieb nach eratosthenes Methode.

Ich habe eigentlich alles verstanden, aber irgendwie will es nicht klappen.
Könnt ihr mir sagen, wo der Fehler liegt?
Wie kann ich die Lösung mit stringgrid1 verknüpfen?

Danke

Delphi-Quellcode:

procedure TForm1.eratosthenes;
var prim:Array[1..100000]of Integer;           //Zahlen von 1 bis 250000
    i,v:integer;                               //i=Zahl

begin
prim[i]:=1;
stringgrid1.cells[0,1]:='0';
for i:=1 to nmax do
    begin
    v:=2;
    while v*i<=nmax do
    begin
    prim[i]:=0;
    v:=v+1;
    end
    end
end;