program DynArray;

uses
  Classes, Sysutils;

var
  MyStream: TMemoryStream;
  MyBuffer: array of Byte;

begin

MyStream := TMemoryStream.Create;
MyStream.LoadFromFile('test.1');

SetLength(MyBuffer,MyStream.Size);
MyStream.ReadBuffer(MyBuffer,MyStream.Size);

end.