Ejercicios Basicos 5 : Numero de Digitos

Function cantidad_digitos(numero:byte):byte;
var
acumulador,r:integer;
begin
 acumulador:=0;
 while numero>0 do
  begin
  r:=numero mod 10;
 Inc(acumulador);      //acumulador:=acumulador+1; 
  numero:=numero div 10;
  end;
  Result:=acumulador;
end;
forma de llamar a la función :
begin
edit1.Text:=inttostr(form1.numero_digitos(strtoint(edit1.Text)));
end;

Otra Forma mas Sencilla : 
function cantidad_digitos: integer;
begin
result:=trunc((ln(valor)/ln(10))+1);
end;

forma de llamar a la función :
begin
edit1.Text:=inttostr(form1.cantidad_digitos);
end;