Byte Array example

Bytes.pas

program Project46;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils;

var
  SomeBytes: TBytes;
  SomeByte: Byte;

begin
  try
    SetLength(SomeBytes, 2);
    SomeBytes[0] := $00;
    SomeBytes[1] := $01;
    for SomeByte in SomeBytes do
    begin
      WriteLn(SomeByte.ToString);
    end;
  except
    on E: Exception do
      WriteLn(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.