Int64 in For-Schleife

[CalganX]

Hi,
allerdings scheint da noch ein paar Fehler drin zu sein. Die folgende Funktion sagt, dass 0 und 1 eine Primzahl ist, allerdings stimmt das ja nicht wirklich und bei 3 hängt er sich auf bzw. braucht etwas sehr lange. Das passiert beim Original nicht.

Delphi-Quellcode:

function isPrime (n: int64): boolean;
var
  i: int64;
begin
  Result := true;
  i := 2;
  while ((i <= n-1) and (bOK)) do begin
    if (n mod i) = 0 then
    begin
      Result := False;
      exit;
    end;
    Application.ProcessMessages;
  end;
end;

Chris