case...of für mehrere Variablen?

[Boyington]

Morgen Zusammen,
wie "case...of" für EINE Variable in Delphi zu verwenden ist mir ganz klar, aber wie mache ich mit "case...of" für mehrere Variablen?

Beispiel:
if (a=0 und b=0) then Anweisung1
else if (a=0 und b>0 und b<10) then Anweisung2
else if (a=0 und b=10) then Anweisung3
else if (a>0 und a<5 und b=0) then Anweisung4
else if (a>0 und a<5 und b=10) then Anweisung5
else if (a=5 und b=0) then Anweisung6

mit if...then...else kann ich die entsprenchde Funktion realisieren, aber sieht nicht so schön aus, wie kann ich es durch case...of oder andere passenden code ordentlich und übersichtlich ersetzen?

Danke für die Hinweise im Voraus!

Gruss
Lee