[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;