1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure TForm1.ReadBinFile(const FileName: String);
var
  SourceFile: File;
  binRead, I: Integer;
  Buf: array [0..4096] of Byte;
  S: String;
begin
 AssignFile(SourceFile, FileName);
 Filemode:=FmOpenRead;
 Reset(SourceFile,1);

 repeat
  BlockRead(SourceFile, Buf, Sizeof(Buf), binRead);
  SetLength(S, Length(Buf));
  for I := 1 to Length(Buf) do
  begin
   if Char(Buf[I]) = #0 then S[I] := ' '
   else                      S[I] := Char(Buf[I]);
  end;

  RichEdit1.Text := RichEdit1.Text+S;
 until (binRead = 0);

 CloseFile(SourceFile);

 Caption := IntToStr(Length(RichEdit1.Text))+' <-> '+
  IntToStr(FileSizeByName('d:\delphi6\projects\list.exe'));
end;