Сохранить строку в памяти?+пример работы с атомами

Code:

const UniqueSignature='GI7324hjbHGHJKdhgn90jshUH*hjsjshjdj';

{©Drkb v.3, ®Vit (Vitaly Nevzorov) - Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.}

Procedure CleanAtoms;

var P:PChar;

i:Word;

begin

GetMem(p, 256);

For i:=0 to $FFFF do

begin

GlobalGetAtomName(i, p, 255);

if StrPos(p, PChar(UniqueSignature))<>nil then GlobalDeleteAtom(i);

end;

FreeMem(p);

end;

Procedure WriteAtom(Str:string);

begin

CleanAtoms;

GlobalAddAtom(PChar(UniqueSignature+Str));

end;

Function ReadAtom:string;

var P:PChar;

i:Word;

begin

GetMem(p, 256);

For i:=0 to $FFFF do

begin

GlobalGetAtomName(i, p, 255);

if StrPos(p, PChar(UniqueSignature))<>nil then break;

end;

result:=StrPas(p+length(UniqueSignature));

FreeMem(p);

end;

procedure TReadFromAtom.Button1Click(Sender: TObject);

begin

WriteAtom(Edit1.text);

end;

procedure TReadFromAtom.Button2Click(Sender: TObject);

begin

Showmessage(ReadAtom);

end;