[M.A.D.M.A.N.]

Вот вариант, но не знаю, пригодится ли он тебе

Код:

...
Var FileStream:TFileStream;
     B:Byte;
Begin
  FileStream:=TMemoryStream.Create('c:\123.456',fmOpenRead);
  While FileStream.Position<>FileStream.Size Do
    Begin
      FileStream.Read(B,SizeOf(B));
      Memo1.Text:=Memo1.Text+Char(B);
    End;
  FileStream.Free;
End;
...