Ejercicios Basicos 4 : Verificar si un numero es primo

function primo: boolean;
var
sw:boolean;
t,n:cardinal;
begin
sw:=true;
t:=2;
n:=valor;
while (t<n) and (sw) do
   begin
     if (n mod t)=0 then
     sw:=false;
      t:=t+1;
   end;
   Result:=sw;
end;



// forma de llamar a la función   
var
r:boolean;
begin
r:=clase.primo;
if (r=true) then
   begin
   edit3.Text:='Es Primo';
     end else begin
      edit3.Text:='No es Primo';
   end;
end;