Запрет двойного запуска

procedure TForm1.FormCreate(Sender: TObject);
VAR
 HM: THandle;
begin
HM := OpenMutex(MUTEX_ALL_ACCESS, false, 'CdpApp');
if (HM <>0 ) then
ShowMessage('Óæå çàïóøåíî');
if HM = 0 then
  HM := CreateMutex(nil, false, 'CdpApp');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 h:THandle;
begin
//создаем мьютекс для запрета вторичного запуска
h := CreateMutex(nil, True, PChar(ExtractFileName(ParamStr(0))));
if WaitForSingleObject(h, 0)<>0 then  //прерываем процесс при попытке повторного запуска
begin
ShowMessage('Повторный запуск запрещен'); //вывод сообщения
Application.Terminate;
CloseHandle(h);
end;
end;
 
end.

program Project1;
 
uses
  Forms,
  Windows,
  SysUtils,
  Dialogs,
  Unit1 in 'Unit1.pas' {Form1};
 
var
 hMutex: THandle;
 
{$R *.res}
 
begin
  // Ñîçäàåì ìüþòåêñ äëÿ çàïðåòà çàïóñêà âòîðîãî ýêçåìïëÿðà ïðèëîæåíèÿ
  hMutex := CreateMutex(nil, True, PChar(ExtractFileName(ParamStr(0))));
 
  if GetlastError <> ERROR_ALREADY_EXISTS then // ïðåðûâàåì ïðîöåññ ïðè ïîïûòêå ïîâòîðíîãî çàïóñêà
//  if WaitForSingleObject(hMutex, 0) = 0 then
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
 
    ReleaseMutex(hMutex);
  end else
  begin
    ShowMessage('Ïîâòîðíûé çàïóñê çàïðåùåí!');
    CloseHandle(hMutex);
  end;
end.

 ReleaseMutex(hMutex);
  end else
  begin
    ShowMessage('Повторный запуск запрещен!');
    CloseHandle(hMutex);
  end;
end.

 ReleaseMutex(hMutex);
  end else
  begin
    CloseHandle(hMutex);
  end;
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  h : THandle;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
if WaitForSingleObject(h, 0)<>0 then
begin
MessageBox(Self.Handle, 'Вы уже запустили НАЗВАНИЕ ПРОГРАММЫ', 'Ошибочка', mb_IconError);
Application.Terminate;
end
end;
 
initialization
h := CreateMutex(nil, True, PChar(ExtractFileName(Application.ExeName)));
finalization
CloseHandle(h);
 
end.