Ejercicios Basicos 7 : Suma Digitos Pares

function suma_dig_pares(numero: integer): integer;
var
suma,r:integer;
begin
suma:=0;
   while (numero>0) do
     begin
     r:= numero mod 10;
     if (r mod 2)=0 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_pares(strtoint(edit2.Text)));
end;