Пытаюсь перевести файл в двоичный код

////////////////////////////////////
function HexToBin(Hexadecimal: string): string;
const
  BCD: array [0..15] of string =
    ('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111',
    '1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');
var
  i: integer;
begin
  for i := Length(Hexadecimal) downto 1 do
    Result := BCD[StrToInt('$' + Hexadecimal[i])] + Result;
end;
///////////////////////
///////батон
Var    f:file;
    oneByte   : byte;
  s: string;
begin
   Memo1.Clear;
   AssignFile(f,'123.txt');//7897282529
  Reset(f, 1);
  while not Eof(f) do
  begin
    BlockRead(f, oneByte, 1);
    s:=s+ HexToBin(IntToStr(oneByte));
  end;
     Memo1.Text:=s;
  CloseFile(f);
  Edit1.Text:=inttostr(length(Memo1.Text));

var
  Form1: TForm1;
  F:file of Byte;
  b:Byte;
implementation
 
{$R *.dfm}
 
function inttobin(value:Byte):string; //Функция для превращения байта в двоичный код
var I,p:Integer;
begin
Result:='';
for i:=7 downto 0 do begin
if value and (1 shl i)<>0 then Result:=Result+'1'
else Result:=Result+'0';
end;
if Result='' then Result:='0';
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
if dlgOpen1.Execute then begin
 AssignFile(f,dlgOpen1.FileName);
 Reset(f);
  while not Eof(f) do
  begin
    read(f,b);
    Form1.mmo1.Lines.Add(inttobin(b));
  end;
end;
end;