[[coso]]

Hola

Código Delphi [-]
type TReg = record
     X,
     Y: string;
end;
type TRegArray = array of TReg;
 
...
 
procedure TForm1.Button1Click(Sender: TObject);
var Reg: TregArray;
begin
  SetLength(Reg, 0);  //0 registros
  MiProcedure(Reg);
  ShowMessage(Reg[0].x+', '+Reg[1].x);  //
end;

procedure TForm1.MiProcedure(var Reg: TRegArray);
begin
  SetLength(Reg, 2);  //2 registros
  Reg[0].x := '0';
  Reg[1].x := '1';
end;

asi funciona. Lei en algun sitio que delphi tiene ciertos inconvenientes al pasar arrays dinamicos como parametros. Quizas deba ser por eso que te fallase tu codigo (en principio no le veia fallo). saludos.