Programm Optimierung

[Noedel]

muss das denn so kompliziert sein? ich dachte immer, man könne eine Primzahl daran erkennen, dass sie nur 2 teiler hat?!
Oder ist diese Lösung sehr langsam?

Delphi-Quellcode:

ZuUntersuchenderWert:=StrToInt(EUntergrenze.Text);
Obergrenze:=StrToInt(EObergrenze.Text);
REPEAT
  anzahlTeiler:=0;
  FOR i:=2 to ZuUntersuchenderWert-1 DO
      IF (ZuUntersuchenderWert mod i = 0)  THEN inc(anzahlTeiler);
  IF (anzahlTeiler=0) and (ZuUntersuchenderWert>=2)THEN Listbox1.Items.Add(InTtoStr(ZuUntersuchenderWert));
  inc(a);
UNTIL ZuUntersuchenderWert=Obergrenze;