Ejercicios Basicos 9 : Cantidad de Digitos Primos

function cant_dig_primos(numeros: integer): integer;
var
r,aux,cont:integer;
begin
 cont:=0;
 while (numeros>0) do
  begin
  r:=numeros mod 10;
  if  r in [ 2,3,5,7 ] then
     begin
     inc(cont);
      end else begin
     end;
   numeros:=numeros div 10;
  end;
  Result:=cont;

end;

Forma de llamar :
begin
edit3.Text:=inttostr(Form1.cant_dig_primos(strtoint(edit2.Text)));
end;