Поясни, что ты имеешь в виду под "создать в нужном количестве". И чем именно не устраивает такой вариант
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
m1: array of integer;
begin
SetLength( m1, 10 );
end;
Создается массив на 10 элементов (от 0 до 9).