Работа со наредба за избор од повеќе можности - CASE

По поставување на еден Edit1, еден Button1  и една Label1 се пријавува променлива  

var broj:integer;

а потоа на притисок на Button1 се внесува следниот код :

if edit1.Text<>'' then
    begin
        broj:=strtoint(edit1.Text);
        case broj of
            1,2,3,5,7:label1.Caption:='Vnesovte prost broj';
            4:label1.Caption:='Deliv so dva';
            6:label1.Caption:='Deliv so dva i so tri';
            8:label1.Caption:='Deliv so dva i so cetiri';
            9:label1.Caption:='Deliv so tri';
        else
            label1.Caption:='Vnesovte nedozvolen broj';
        end;
    end
else
    label1.Caption:='Prazno mesto ne e dozvoleno';
end;