[angvelem]

Код:

...
   x1:=46875*5*StrToInt(Edit1.Text);
   x2:=9375*5* StrToInt(Edit2.Text);
   x3:=1875*5*StrToInt(Edit3.Text);
   x4:=375*5* StrToInt(Edit4.Text);
   x5:=75*5* StrToInt(Edit5.Text);
   x6:=15*5*StrToInt(Edit6.Text);
   x7:=5*5* StrToInt(Edit7.Text);
   x8:=5*StrToInt(Edit8.Text);
   y:= x1+x2+x3+x4+x5+x6+x7+x8;

  case y of
    0..5   : Label10.Caption := format('Новичок %i!', [y]);
    6..10  : Label10.Caption := format('Мастер %i!', [y]);
    11..15 : Label10.Caption := format('Профессионал %i!', [y]);
  end;

Как вариант.