[NumLock]

закомментарь:

Код:

    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
//    procedure Randomm(NQuest:Integer;var a:array of Integer);

Код:

procedure Randomm(NQuest:Integer;var a:array of Integer);
  var
  m,x:Integer;
  f:Boolean;
  begin
...
  end;

перенеси после:

Код:

implementation

{$R *.dfm}

тогда откомпилиться