Pascal. Рекурсивная функция возвращает 0

Функция считает сумму цифр n числа. Объясните пожалуйста почему функция возвращает 0, хотя debug показывает значение в переменной sum

    function SumNum(sum,num:integer):integer;
begin
    if 0 = num then
    begin
        SumNum:=sum;
        exit;
    end;
    SumNum(sum + num mod 10,num div 10);
end;