Paso de Array Dinamico a Procedimiento por Referencia.

[eLYaN]

Hola, tengo el siguiente problema y no encuentro solución:
Necesito pasar a un procedimiento un array dinamico y que este me lo devuelva relleno, para ello tengo un array dinamico de registros. El problema es que no se como devolver el array dinamico, dentro del procedure lo relleno bien y lo voy redimensionando pero no logro devolverlo :

Código Delphi [-]
Type TReg=Record
  X, Y: string;
end;

La llamada al procedimiento:

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
var Reg: array of Treg;
begin
  SetLength(Reg, 0);  //0 registros
  MiProcedure(Reg);
  ShowMessage(Reg[0].x+', '+Reg[1].x);  //Aqui salta el error
end;

y el procedimiento seria:

Código Delphi [-]
Procedure TForm1.MiProcedure(var Reg: array of Treg);
var a: array of Treg;
begin
  a := Pointer(@reg);
  SetLength(a, 2);  //2 registros
  a[0].x := '0';
  a[1].x := '1';
end;

Mil Gracias.