Delphi - no permitir ejecutar mi aplicación mas de una vez

Hola me gustaria saber que puedo hacer para que no me deje ejecutar mi aplicación si ya se está ejecutando.

Gracias.

Prueba a poner esto en el codigo del proyecto:

program NombreAplicación;
uses Forms,Windows,Dialogs, form1 in 'form1.pas';
{$R *.RES}

const NombreMutex='Tu Aplicación';
Var Mimutex:Thandle;

begin
mimutex:= createmutex(nil,true,nombremutex);
if mimutex=0 then begin
Showmessage('Error creando mutex');
halt;
end;
if getlasterror=ERROR_ALREADY_EXISTS then begin
Showmessage('Ya está funcionando');
halt;
end;
Application.initialize;
......createform
.......run
closehandle(mimutex);
end.