[ryderx34]

case со строками не работает.

Код:

var
  Value: Integer;

if TryStrToInt(w1, Value) then
case Value 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;