Ejercicios Basicos 10 : Cant. Dig. Primos II METODO

function cnatural.cant_dig_primos2(n: integer): integer;
var
c,dig:integer;
begin
c:=0;
while n>0 do
 begin
   dig:= n mod 10;
   if (primo(dig)=true) then
     c:=c+1;
     n:=n div 10;
 end;
 Result:=c;
end;

Llamar :

begin
edit3.Text:=inttostr(clase.cant_dig_primos2(strtoint(edit2.Text)));
end;