Problem mit Funktion

[Problemmacher]

Schönen Tag euch!

Schreibe gerade eine Funktion, doch ich erhalte ganze Zeit den
Fehler "Deklaration erwartet, aber 'CASE' gefunden" - Woran kann
das liegen? Ebenso danach "Deklaration erwartet, aber Bezeichner
'Result' gefunden.

Delphi-Quellcode:

function Zahl(Auswahl : Integer) : Integer;
var umfang : Integer;

case Auswahl of
     1: umfang := Random(4)+1;
     2: umfang := Random(6)+1;
     3: umfang := Random(8)+1;
end;

Result := umfang;

end;

Danke schonmal falls ihr mir weiterhelfen könntet !