Primzahlen bei Delphi finden - Hilfe

[bigben37]

Also ich mach das so, wenn ich Primzahlen zwischen 2 Zahlen haben will:

Delphi-Quellcode:

function isPrim(zahl: Integer): boolean;
var
  i: Integer;
begin
  result := true;
  if zahl = 1 then
    begin
      result := false;
      exit;
    end;
  for i := 2 to zahl div 2 do
    begin
      if zahl mod i = 0 then 
        begin
          result := false;
          exit;
        end;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y, i: Integer;
begin
  x := StrToInt(Edx.Text);
  y := StrToInt(Edy.Text);
  for i := x to y do
    begin
      if isPrim(i) then
        begin
          Memo1.Lines.Add(IntToStr(i));
        end;
    end;
end;