Ejercicios Basicos 6 : Digitos Pares

function digitos_pares(numero: integer): integer;
var
residuo,dig,cont:byte;
begin
while (numero>0) do
   begin
  residuo:=numero mod 10;
  if (residuo mod 2)=0 then
    begin
    Inc(cont);
    end;
    numero:=numero div 10;
   end;
   Result:=cont;
end;


Forma de Llamar:
begin
edit1.Text:=inttostr(form1.digitos_pares(strtoint(edit2.Text)));
end;