怎样用delphi内存映射实现共享内存的实例, FMap := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, size, PChar(name)) ,how to share memory using Delphi