if GlobalFindAtom(AtomWriting) = 0 then
begin
GlobalAddAtom('AtomWriting')
//想怎么写就这么写
...............
//写完了
GlobalDeleteAtom(GlobalFindAtom(AtomWriting));
................
end;
................读
if GlobalFindAtom(AtomReading) = 0 then
begin
GlobalAddAtom('AtomReading')
//想怎么读就这么读
...............
//读完了
GlobalDeleteAtom(GlobalFindAtom(AtomReading));
................
end;