sumar cada digito de un numero entero

[emenchi34]

Copy(S; Index, Count: Integer): string;

 var
  numero, resultado : string;

 begin
  numero := '12345678';
  resultado := Copy(numero, 8, 1);
  ShowMessage('resultado : '+resultado);
 end;

resultado : 8

Saludos