Создать массив в функции, через указатель. Как?

[notHaker]

Сообщение от Grag

И где же тут МАССИВ, т.е. массив то есть, но из одного элемента... Это все равно что создать переменную и ссылаться на нее по указателю

А смысл вашего замечания? Это демонстрационный код... Если уж на то пошло, то можно поставить и 30 элементов.

procedure CreateArr(a: PIntAr; n : dword);
begin
  SetLength(a^, n);
  a^[0]:=13;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
  a: TIntAr;
begin
  CreateArr(@a, 30);
  ShowMessage(IntToStr(a[0]));
end;

это делается больше для удобства, но в данном случае это скорей маразм, тк получается перевызов.
А вообще это довольно общий приём, те он аналогичен следующему

procedure CreateArr(var a: TIntAr; n : dword);
begin
  SetLength(a, n);
  a[0]:=13;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
  a: TIntAr;
begin
  CreateArr(a, 30);
  ShowMessage(IntToStr(a[0]));
end;

сдесь делается тоже самое, просто на синтаксисе Pascal.