1:
2:
3:
4:
5:
6:
7:

MyPercentage := ... // hier berechnest du den Prozentsatz

// jetzt prüfst du in welchem Bereich der Wert liegt:
if MyPercentage < 20 then
  ...
else if MyPercentage < 40 then
  ...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

var
  MyPercentage : integer;
  myPunkte, myMaxPunkte : integer;
  
// Achtung!!! myMaxPunkte darf nicht 0 sein!!

// entweder: (geht auch bei nicht ganzzahligen Punkten (dann allerdings muss myPunkte und myMaxPunkte als single oder double definiert werden)

  MyPercentage := round(100*myPunkte/myMaxPunkte);

// oder: (geht nur bei ganzzahligen Punktzahlen)
// Anmerkung: Addition von myMaxPunkte div 2, damit bei Ergebnis > x.5 der Wert x+1 herauskommt (Rundung)
  MyPercentage := (100*myPunkte + myMaxPunkte div 2) div myMaxPunkte;

  Case MyPercentage of
  0 .. 20 : ...
  21 .. 40 : ...
:
:
:
  end;					

1:
2:
3:
4:
5:

case mypercentage of 
0..40: 
  Showmessage('<41');
else 
  Showmessage('>40');