ayuda con case

[juaarias]

gente necesito ayuda lo mas veloz posible disculpen la molestias, quisiera ver que es lo que estoy haciendo mal este mi codifo en un case:

case frmInicio.rdgCategoria.itemIndex of
    (0):  (if DiasPactados<7 then begin
            frmFactura.lblAlqPac.caption:=inttostr(DiasPactados*142);
            end
            else begin
            if (DiasPactados>=7)and(DiasPactados<15) then begin
            frmFactura.lblAlqPac.caption:=inttostr(DiasPactados*133);
            end
            else begin
            if (DiasPactados>=15)and(DiasPactados<=31)then begin
            frmFactura.lblAlqPac.caption:=inttostr(DiasPactados*121);
            end
            else begin
            if (DiasPactados>31)then begin
            frmFactura.lblAlqPac.caption:=inttostr(DiasPactados*99);
            end);///por aqui me queda el cursor marcando algo que no se que es                   creo que me dice algo como esperando parentesis pero no lo comprendo//
    (1):  (frmFactura.lblCategoria.Caption:='B');
    (2):  (frmFactura.lblCategoria.Caption:='C');
    (3):  (frmFactura.lblCategoria.Caption:='D');
    (4):  (frmFactura.lblCategoria.Caption:='E');
    (5):  (frmFactura.lblCategoria.Caption:='F');
    (6):  (frmFactura.lblCategoria.Caption:='G');
    (7):  (frmFactura.lblCategoria.Caption:='H');
    (8):  (frmFactura.lblCategoria.Caption:='I');
    end;