1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  
var
  File1 : File;
  Buf1 : Array[1..2048] of Byte;
  NumRead1 : Integer;
...
  repeat
    BlockRead(File1, Buf1, SizeOf(Buf1), NumRead1);
    for i:=1 to NumRead1
    do RichEdit1.SelText := IntToHex(Buf1[i], 2) + ' ';
  until NumRead1 = 0;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  m1 : TMemoryStream;
begin
  m1 := TMemoryStream.Create;
  try
    m1.LoadFromFile(OpenDialog1.FileName);
    RichEdit1.Text := String(m1.Memory);    //???
  finally
    m1.free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  m1 : TMemoryStream;
begin
  m1 := TMemoryStream.Create;
  try
    m1.LoadFromFile(OpenDialog1.FileName);
    RichEdit1.Text := String(m1.Memory);    //???
  finally
    m1.free;
  end;
end;