.........
público
aa: palabra;
.........
procedimiento tForm1.FormCreate (remitente: tobject);
Comenzar
// busca la base de datos del sistema para ver si el programa se está ejecutando
Si GlobalFindatom ('' Project1 '') = 0 entonces // Project1 es el nombre del archivo EXE
// Si no se encuentra el archivo exe, agregue el nombre del archivo exe a la base de datos del sistema
AA: = GlobalAdDatom ('' Project1 '')
demás
comenzar // si el programa ya se está ejecutando, muestre la información y salga del programa
Messagedlg ('' este programa se está ejecutando! '', Mtwarning, [mbok], 0);
Detener;
fin;
fin;
.........
procedimiento tForm1.FormDestroy (remitente: tobject);
Comenzar
{Al salir del programa, elimine el nombre de archivo agregado de la tabla de datos}
GlobalDeletEteatom (AA);
fin;