[Karsh]

mod - получение дробной части после деления (т.е. 24 mod 10 = 4)
div - получение целой части после деления (т.е. 36 div 10 = 3)

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y, i: Integer;
begin
  x:= 248; // это случайное число, которое мы будем мучать
  y:= 0; // обнуляем переменную, где будет сумма чисел
  for i:= 1 to 3 do // повторяем цикл 3 раза (т.к. число трехзначное)
  begin
    y:= y + (x Mod 10); // Получаем остаток от деления X на 10 и плюсуем его к сумме
    x:= x div 10; // отсекаем от X то число, которое обработали
  end;
  ShowMessage(IntToStr(y)); //выводим результат
end;