Algoritmo de Números Primos

Em delphi:

function TForm1.ehPrimo1(n:Int64 ):boolean;
var v:boolean;
    sq,i:Int64 ;
begin
if (n mod 2 = 0) and (n>2) then v:=false else v:=true;
if v then begin
          sq:=round(sqrt(n));i:=3;
          while v and (i<=sq) do if (n mod i) = 0 then v:=false else begin inc(temp);inc(i,2);end;
          end;
Result:=v;
end;