Создать файл байтов

var
  Form1: TForm1;
  a: array [0..15, 0..15] of integer;
  astr: array [0..15, 0..15] of string;
  d: integer;
 
implementation
 
{$R *.dfm}
 
function CC(n, delitel: integer): string;
var
//  n, k: integer;
  r, i: integer;
  a, b: string;
begin
  a:='';
//  n:=strtoint(form1.LabeledEdit1.Text);
//  k:=strtoint(form1.LabeledEdit2.Text);
  if (delitel<2) or (delitel>36) then
  showmessage('?????????? ???????? - ??2 ?? 36');
  if n=0 then
  a:='0';
  while n>0 do
  begin
    r:=n mod delitel;
    n:=n div delitel;
    if r<10 then
    b:=inttostr(r)
    else
    b:=chr(ord('A')-10+r);
    a:=b+a;
  end;
 
  if delitel=16 then
  if length(a)=1 then
  a:='0'+a;
  if delitel=2 then
  for i:=0 to 7-(length(a)) do
  a:='0'+a;
  result:=a;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, k, k2, r, kk, r0, ch: integer;
  s, s2, ks: string;
  t: boolean;
begin
  k:=0;
{  for j:=0 to 15 do
  for i:=0 to 15 do
  begin
    a[j, i]:=random(d*d);
    inc(k);
  end;}
  form1.Memo1.Lines.Clear;
  for j:=0 to 7 do
  begin
    for i:=0 to 7 do
    s:=s+' '+CC(a[j, i], d);
    form1.Memo1.Lines.Add(s);
    s:='';
  end;
  form1.Button1.Enabled:=false;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  d:=16;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  f: file;
  buf: array[1..1024] of byte;
  i, j, done: integer;
  s: string;
begin
  Button2.Enabled:=false;
  for i:=1 to 1024 do
  buf[i]:=0;
  i:=0;
  if form1.OpenDialog1.Execute then
  begin
    s:=form1.OpenDialog1.FileName;
    AssignFile(f, s);
    Reset(f, 1);
    done:=FileSize(f);
    i:=0;
//    while not eof(f) do
//    begin
      BlockRead(f, buf, sizeof(buf), done);
      Application.ProcessMessages;
      inc(i);
      Label1.Caption:='Ðàçìåð ôàéëà: '+IntToStr(i)+' ( ~ Êáàéò)';
//    end;
    CloseFile(f);
  end;
  Button2.Enabled:=true;
 
  for j:=0 to 7 do
  for i:=0 to 7 do
  begin
    a[j, i]:=buf[(i+1)+((j)*8)];
    astr[j, i]:=CC(buf[(i+1)+((j)*8)], d);
  end;
  form1.Button1Click(self);
end;