Program IFSTest;
type
  TByteArray = array of byte;
var
  x: TByteARray;
Begin
  x[0] := 1;
 // will cause an runtime error (Out Of Record Fields Range)
End.