puedes usar algun componente para evitar las instancias de tu aplicación o algo como esto:
añadir
forms,
windows,
dialogs
var
Instancia: THandle;
begin
Instancia := CreateMutex(Nil, True, 'appMutex');
if Instancia <> 0 then
begin
if GetLastError = ERROR_ALREADY_EXISTS then
begin
Application.MessageBox('Imposible abrir la aplicación, existe otra en ejecución actualmente', 'Error', MB_ICONERROR + Mb_Ok);
CloseHandle(Instancia);
Halt;
end;
end;
...
resto del codigo
end;
esto va en el codigo del proyecto
(Project -> View Source)
a mi me funciona
cualquier duda, aqui estamos
suerte