Procedure ReadBytes(fl: string; var a: array of byte); begin a := System.IO.File.ReadAllBytes(fl); end;