Abrir el programa solo una vez

[Paulao]

Hizo este codigo, pero no estas funcionando. Siempre viene el mensaje que ya tiene una aplicación rodando. Como hago para no permitir que la aplicación rode mas de una vez? Este codigo abajo, yo puzo en el .DPR.

Var HprevHist : HWND;

begin
Application.Initialize;

HprevHist := FindWindow(Nil, PChar('DM_Principal'));
if HprevHist = 0 then
begin
Application.CreateForm(TDM_Principal, DM_Principal);
Application.CreateForm(TDM_PDV, DM_PDV);
Application.CreateForm(TFRM_Menu, FRM_Menu);
Application.CreateForm(TFrmAvisoEcf, FrmAvisoEcf);
Application.Run;
end else
MessageDlg('Você não pode executar outra cópia do aplicativo', mtInformation, [mbOK], 0);

end.