[NumLock]

Код:

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
type
  PArrInteger = ^TArrInteger;
  TArrInteger = array [Word] of Integer;
var
  a: PArrInteger;
  i: Integer;
const
  n = 4000;
begin
  a:=GetMemory(SizeOf(TArrInteger)*n);
  for i:=0 to (n-1) do
    a^[i]:=RandomRange(1, MaxInt);
  for i:=0 to (n-1) do
    Memo1.Lines.Add(IntToStr(a^[i]));
  FreeMemory(a);
end;

ну или так:

Код:

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

procedure TForm1.Button1Click(Sender: TObject);
type
  PArrInteger = ^TArrInteger;
  TArrInteger = array [Word] of Integer;
var
  a: PArrInteger;
  i: Integer;
  n: Integer;
begin
  Memo1.Clear;
  n:=StrToInt(Edit1.Text);
  a:=GetMemory(SizeOf(TArrInteger)*n);
  for i:=0 to (n-1) do
    a^[i]:=RandomRange(1, MaxInt);
  for i:=0 to (n-1) do
    Memo1.Lines.Add(IntToStr(a^[i]));
  FreeMemory(a);
end;

добавлено позже

только у меня в SizeOf очепятка. там нужно тип элемента массива указать.