delphi - PByteArray から TMemoryStream へ、およびその逆

Question

次のコードがあります。buf が指すデータを計算しようとしています。

buf:PByteArray
inmem,outmem:TmemoryStream;
...
size := GetFileSize(aFile, nil);
buf := MapViewOfFile(map, FILE_MAP_READ, 0, 0, 0);

inmem.SetSize(size);
inmem.Position := 0;

//buf to memorystream
inmem.Write(buf[0], size);
outmem := tmemorystream.Create;
outmem.SetSize(size);

//Do memory stream processing
ProcMemoryStreams(inmem,outmem,size);
//

outmem.Position:=0;
//memorystream to buf
outmem.Read(buf[0],size); <-Access violation

私は何を間違っていますか？