使用delphi编写进程间内存共享的例子