[lmikle]

Можно еще проще:

Код:

var
  FS : TFileStream;
  MS : TMemoryStream;
begin
  FS := TFileStream.Create('file.dat',mfOpenRead);
  Try
    MS := TMemoryStream.Create;
    Try
       MS.CopyFrom(FS,FS.Size);
       // Здесь можно получить указатель на данные и работать как с PChar.
    Finally
      MS.Free;
  Finally
    FS.Free;
  End;
end;