[Delphi] Noob braucht Hilfe bei Primzahlen

uses
 math; // Klasse math wird benötigt, stellt Delphi bereit.

Function IsPrim(zahl : Integer): boolean; // Funktion erwartet als Eingabe einen Integer und gibt true oder false zurück
var
i: integer; // als Lokale Variable ist "i" definiert
begin
 result := true; // Standardrückgabewert: "true"
 If zahl = 1 then // Wenn eingegebene Zahl = 1 
 begin
 result := false; // dann false
 exit; // funktion verlassen - abbrechen
 end;
 For i := 2 to Trunc(sqrt(zahl))+1 do // jede Zahl ab 2 prüfen ob Primzahl
 begin
 If ((zahl mod i) = 0) then
 begin
 result := false; // Wenn keine Primzahl -> Rückgabewert: false sonst true
 exit;
 end;
 end;
end;