Ejercicios Basicos 8 : Suma Digitos Primos

function suma_dig_primos(numero: integer): integer;
var
suma,r:integer;
begin
suma:=0;
while ( numero > 0 ) do
  begin
 r:= numero mod 10;
 if ( r in [ 2,3,5,7 ] ) then
   begin
   suma:= suma + r ;
    end else begin
   end;
   numero:=numero div 10;
  end;
  Result:=suma;
end;


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