[dr. F.I.N.]

Код:

function SumDig(Value: Integer): Longint;
var
  i: Byte;
  TmpVal: String;
begin
  TmpVal := IntToStr(Value);
  Result := -Ord('0') * Length(TmpVal);
  for i := 1 to Length(TmpVal) do
  Result := Result + Ord(TmpVal[i]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Count, i: word;
begin
  Count := 0;
  for i:=100 to 500 do 
  if SumDig(i) = 15 then inc(Count);
  Label1.Caption := Format('Количество чисел в интервале от 100 до 500 с суммой цифр равной 15: %d', [Count]);
end.