用delphi做输入一个整数，求出该数的各位数字之和，如输入"456",得到"15"，主要想知道代码，谢谢

function SumNum(Source:Integer):Integer;
var
i:Integer;
begin
Result:=0;
for i:= 1 to length(IntToStr(Source)) do
Result:=Result+StrToInt(IntToStr(Source[i]))
end;

function(iVal:integer):integer;
var
iLen,iNum:Integer;
sVal:String;
begin
//先转字符串
sVal:=IntToStr(iVal);
iNum:=0;
//根据字符串长度来选。
for iLen:=1 to Length(sVal) do
begin
//循环长度
iNum:=iNum + StrToIntDef(Copy(sVal,iLen,1),0);
end;
Result:=iNum;
end;
//GOOD LUCK