Primzahlen bis ins Unendliche

[Sascha_OW]

ich habe jetzt folgendes Programmiert:

Delphi-Quellcode:

function ist_prim (zahl: longint): boolean;
var  teilbar : boolean;
     i       : longint;
     str     : string;
     str_    : string;
     str_3  :  string;
begin
  str := '';
  str_ := '';
  str_3 := '';
  teilbar := true;
  i := 2;
      While i <= sqrt(zahl)  do begin
      str := Inttostr(i);
      If length(Str) >2 then begin
        str_ := str[length(str)];
        str_3 := str[length(str) - 2] + str[length(str) - 1] + str[length(str)];
        If (str_ = '2') and (str_ = '4') and (str_ = '6')and (str_ = '8') and (str_ = '0') then result := false;
        If (Strtoint(str_3) mod 8 = 0) then result := false;
        If Quersumme(i) mod 3 = 0 then result := false;
        if Quersumme(i) mod 9 = 0 then result := false;

      end;
          If (Zahl mod i=0)  and (i<>zahl) then begin
             teilbar := false;
          end;
          inc(i);
      end;
  result := teilbar;
end;

und zum aufrufen:

Delphi-Quellcode:

 For i := 1 to Strtoint(Edit1.Text) do begin
 If ist_prim(i) then begin
   Form1.caption := inttostr(i);
   Memo1.Lines.add (Inttostr(i));
 end;
 Form1.Refresh;
 end;

jetzt ist die frage, wie bekomme ich das hin das ich das bis ins unendliche mache und wie mach ich das schneller?=