Считать байт по адресу в файле

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
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
  r, i: integer;
  a, b: string;
begin
  a:='';
  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;
 
  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;
 
  s:='';
  s2:='';
  form1.Memo1.Lines.Add('----------------');
 
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;
 
end.

function FileReadBit(FileName: String): string;
var
  fs : TFileStream;
  b : string;
begin
  fs := TFileStream.Create(FileName, fmOpenRead);
  fs.Seek(1, soFromBeginning);
  fs.Read(b,1);
  Result := b;
  fs.free;
end;

Edit1.Text := FileReadBit('C:\1.txt');

procedure TForm1.b1Click(Sender: TObject);
var
  st:TStreamWriter;
  fname:string;
begin
  fname := ExtractFilePath(ParamStr(0))+'test.txt';
  st:=TStreamWriter.Create(Fname, false, TEncoding.UTF8);
  try
    st.WriteLine('Строка 1');
    st.WriteLine('Строка 2');
    st.WriteLine('Строка 3');
    ShowMessage('Записано 3 строки');
  finally
    st.Free;
  end;
 
end;
 
procedure TForm1.b2Click(Sender: TObject);
var
  st:TStreamReader;
  fname:string;
begin
  fname := ExtractFilePath(ParamStr(0))+'test.txt';
  st:=TStreamReader.Create(Fname, TEncoding.UTF8);
  try
    m1.Lines.Add(st.ReadLine);
    m1.Lines.Add(st.ReadLine);
    m1.Lines.Add(st.ReadLine);
    ShowMessage('Прочитано 3 строки');
  finally
    st.Free;
  end;
end;

b:byte;
seek(N, ...);
read(b,1);

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s:='00';
 
  ShowMessage('По адресу 4 находится "'+s+'"');
 
end;