Можно ли вернуть динамический массив из функции?

[worldcentre]

Если кто-нибудь сталкивался ответьте пожалуйста!
Как вернуть указатель на динамический массив из функции?
Какой тип должно иметь возвращаемое значение, как затем обращаться к элементам этого массива?

[Sibedir]

type
  TMyArr = array of Integer;
...
function MyFunc (c, x: Integer): TMyArr;
...
implementation
...
function MyFunc (c, x: Integer): TMyArr;
var
  i: Integer;
begin
  SetLength (Result, c);
  for i := 0 to c-1 do Result [i] := x;
end;
...

procedure TForm1.Button3Click(Sender: TObject);
var
  a: TMyArr;
...
begin
  a := MyFunc (3, 5);
...
end;

[worldcentre]

Очень признателен.