[Muaz]

Код:

var
  Form1: TForm1;
  DClass: Array [1..10] of TClass; // <--  вот как бы...если я не ошибаюсь
  i: integer;
  procedure Redisigner;