Создать тип даных: TYPE MyType = от 1 до 150

[Аватар]

Опять проблема: для MyCount=1 следующим получится 3, а хотелось бы 2 и т.д.

ADD

Во такое извращение подойдет

inc(MyCount)
MyCount:=(MyCount mod 150)+Integer(MyCount mod 150=0)*150;

[ArtGrek]

проверено)
от 1 до 15

var
  Form1: TForm1;
  a: integer = -1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  a:= (a+1) mod 15;
  Label1.Caption := Label1.Caption + ' ' + IntToStr(a + 1);

или

  inc(a);
  Label1.Caption := Label1.Caption + ' ' + IntToStr(a mod 15 + 1);
end;

end.