1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var
  f : TFileStream;
  b : array of Byte;
  s : string;
  a, c : Integer;
begin
  f:=TFileStream.Create('test.exe',fmOpenRead);
  SetLength(b,f.Size);
  f.Read(b[0],f.Size);
  f.Free;
  s:='';
  for a:=0 to Length(b)-1 do
    for c:=7 downto 0 do
      if b[a] and (1 shl c) > 0 then s:=s+'1' else s:=s+'0';
  RichEdit.Text:=s;