[dr. F.I.N.]

Код:

type
  MyType=record
    C: Integer;
    Values: array of Byte;
  end;

const
  a: array [0..2] of byte = (1, 23, 0);
  R: MyType = (C: 3; Values: @a);

implementation

procedure TForm1.Button1Click(Sender: TObject);
var
  i:  Byte;
begin
  for i := 0 to R.C - 1 do
  ShowMessage(IntToStr(R.Values[i]));
end;