[nestquik]

Как-то по короче можно переделать?

Код:

if PlayID=q then begin PlayID:=n; exit; end;
if (q<PlayID) and (PlayID<N) then begin Dec(PlayID); Exit; end;
if (q<PlayID) and (PlayID>N) then Exit;
if (q>PlayID) and (PlayID<N) then Exit;
if (q>PlayID) and (PlayID>N) then begin Inc(PlayID); Exit; end;
if (q>PlayID) and (PlayID=N) then begin Inc(PlayID); exit; end;
if (q<PlayID) and (PlayID=N) then begin Dec(PlayID); exit; end;