.........
публичный
АА: Слово;
.........
Процедура tform1.formcreate (отправитель: tobject);
Начинать
// поиск в базе данных системы, чтобы увидеть, работает ли программа
Если GlobalFindatom ('' 'Project1' ') = 0, то // Project1 - имя файла EXE
// Если файл EXE не найден, добавьте имя файла EXE в системную базу данных
AA: = GlobalAddatom ('' 'Project1' ')
еще
начинать // Если программа уже работает, отобразите информацию и выйдите из программы
MOSSAGEDLG ('' Эта программа работает! '', Mtwarning, [mbok], 0);
Остановиться;
конец;
конец;
.........
Процедура tform1.formDestroy (отправитель: tobject);
Начинать
{При выходе из программы удалите добавленное имя файла из таблицы данных}
Globaldeleteatom (AA);
конец;