1:

function IstPrim (zahl:LongInt): boolean;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function IsPrime(Prim: Longint): Boolean; 
var 
  Z: Real; 
  Max: LongInt; 
  Divisor: LongInt; 
begin 
  Prime := False; 
  if (Prim and 1) = 0 then Exit; 
  Z       := Sqrt(Prim); 
  Max     := Trunc(Z) + 1; 
  Divisor := 3; 
  while Max > Divisor do 
  begin 
    if (Prim mod Divisor) = 0 then Exit; 
    Inc(Divisor, 2); 
    if (Prim mod Divisor) = 0 then Exit; 
    Inc(Divisor, 4); 
  end; 
  Prime := True; 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

function zeuge(z,n: LongInt) : Boolean;
VAR c, erg, alt,temp : Int64;
    i : Integer;
    bit : ARRAY[0..63] OF Boolean;
begin
  erg:=1;
  for i:=0 TO 63 DO bit[i]:=false;
  c:=n-1;
  i:=0;
  while c>0 do
  begin
    bit[i]:=(c mod 2 = 1);
    c:=c shr 1;
    i:=i+1;
  end;
  i:=i-1;
  while i>=0 DO
  begin

    alt:=erg;
    erg:=(alt*alt) mod n;
    if (erg =1) and (alt <>1) and (alt <> n-1) then
    begin
      result:=true;
      exit;
    end;
    if bit[i] then erg:=(erg*z) mod n;
    i:=i-1;
  end;
  result:=(erg<>1);
end;

function ist_prim(n,k : LongInt) : Boolean;
VAR z,i : LongInt;
begin
   i:=0;
   while i<k do
   begin
     z:=Random(2147483647);
     if n<>4 then z:=z mod (n-4);
     z:=z+2;
     if zeuge(z,n) then
     begin
       result:=false;
       exit;
     end;
     i:=i+1;
   end;
   result:=true;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

var
  Form1: TForm1;
  Result: Boolean;
implementation

{$R *.DFM}


function IsPrime(Prim: Longint): Boolean;
var
  Z: Real;
  Max: LongInt;
  Divisor: LongInt;
begin
  Result := False;
  if (Prim and 1) = 0 then Exit;
  Z       := Sqrt(Prim);
  Max     := Trunc(Z) + 1;
  Divisor := 3;
  while Max > Divisor do
  begin
    if (Prim mod Divisor) = 0 then Exit;
    Inc(Divisor, 2);
    if (Prim mod Divisor) = 0 then Exit;
    Inc(Divisor, 4);
  end;
  Result := True;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
IsPrime(StrToInt(Edit1.Text));
if Result = True then
button1.caption:= 'ja'
  else button1.caption:= 'nein';
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if IsPrime(StrToInt(Edit1.Text)) = true then 
    Button1.Caption := 'ja' 
  else 
    Button1.Caption := 'nein'; 
end;					

1:

Ergebnis := IrgendEineFunction(Parameter);					

1:
2:
3:
4:
5:
6:

function IrgendEineFunction(Parameter...): Rückgabetyp;
begin
   {irgendwelcher Code}
   ...
   IrgenEineFunction := Rückgabewert;
end;