Sehr schneller Primzahl-Finder

[KarYn-To]

Ich versteh den Code nicht öÖ??? Aber ich hab eine Frage, weil ich sowas mal probiert habe.

Delphi-Quellcode:

function GetPrimes: Integer;
var Max, X, Y, Z, Temp, Prim: Integer;
begin
  With Form1 Do
  Begin
    X := 2;
    Z := 0;
    Max := 20000;
    For Y := 2 To Max Do
     lPrime.Items.Add(IntToStr(Y));
     While Z <> lPrime.Items.Count - 1 Do
     Begin
       Prim := StrToInt(lPrime.Items.Strings[Z]);
       While (X*Prim) < (Max + Prim) Do
       Begin
         Temp := X * Prim;
         lPrime.Items.Delete(lPrime.Items.IndexOf(IntToStr(Temp)));
         X := X + 1;
       End;
       Z := Z + 1;
       X := 2;
       Application.ProcessMessages;
     End;
  End;
end;

(* Der Code macht nichts anderes als alle Zahlen von 2 bis Max in die ListBox
   lPrime einzutragen und dann mit der zwei zu Beginnen und alle anderen
   Werte rauszustreichen *)

(* Der obige Code ist nur Schwachsinn und eh Fehlerhaft... *hust* *)

Führt das hier nicht im Endeffekt auch zum Erfolg ? Und was sind Sprungtabellen, etc. etc. etc. ?
Hoffe auf Antwort !

EDIT: <~ Bitte schlagt die Unwissenden nicht =) Sorrrrrrrry... das hier ist hohe Entwicklungskunst.