Application.Title := 'Mi aplicacion';
if CreateFileMapping($FFFFFFFF, nil, PAGE_READONLY, 0, 32, 'PABLOR_TAGGED') <> 0 then
if GetLastError() = ERROR_ALREADY_EXISTS then
begin
Application.MessageBox('Ya existe una instancia de la aplicación ejecutándose', 'Atención', MB_ICONWARNING);
ExitProcess(1);
end;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;