[*Caro*]

Hola luisito2011, también lo puedes hacer así:

Código Delphi [-]
function cnumeronatural.DigitoMayor(numero : Integer) : Integer;
var
  Mayor, Digito, Num : Integer;
begin
  Mayor := -1;
  Num := numero;
  while Num > 0 do
   begin
    Digito := Num Mod 10;
    Num := Num Div 10;
    if Digito>Mayor then
     Mayor:=Digito;
   end;
  result:=Mayor;
end;

Saluditos