[Молоток]

сделал вот так, но выдает ошибку oridinal type required

Код:

case w1 of
     1: begin wNach:=0; wKon:=6; end;
     2: begin wNach:=1; wKon:=5; end;
     3: begin wNach:=2; wKon:=4; end;
     4: begin wNach:=3; wKon:=3; end;
     5: begin wNach:=4; wKon:=2; end;
     6: begin wNach:=5; wKon:=1; end;
     7: begin wNach:=6; wKon:=0; end
     else showmessage('Ошибка');
    end;