[NumLock]

Код:

var
  f: file of Byte;
  b: Byte;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(f, OpenDialog1.FileName);
    Reset(f);
    while not Eof(f) do
    begin
      Read(f, b);
      ShowMessage(IntToStr(b));
    end;
    CloseFile(f);
  end;
end;