[Kaktuz]

Код:

var
  Form1: TForm1;
  Box : array [10..65] of string;
  But : array [1..15] of string;
  New : array [1..16] of string;
  Ocx : array [1..16] of string;
  Num : array [1..3] of integer;
  n: integer;

[angvelem]

Ну и чего хочешь? Массив - String, а присваиваешь значение из него переменной a - Integer.

[Kaktuz]

Так я уже менял значения IntToStr и StrToInt множество вариантов перепробовал и ни как...
И записывал "a: string;"

Все. Получилось

[angvelem]

Не вижу, где менял.

Код:

  a:=StrToInt(But[n][1]);

Судя по задаче, лучше все массивы сделать Char.