Delphi - Impedir que abra duas instâncias da mesma aplicação

O código abaixo demonstra como impedir que seja aberto duas instâncias da aplicação Delphi. Essa consistência deve ser colocada na unit do projeto(.dpr) de sua aplicação.

Var hd : THandle;
Begin
   hd := FindWindow('TApplication', 'NomeDaAplicação'); // Localizando janela de acordo com o nome da aplicação
   If hd = 0 Then // Verificando se a aplicação com o nome passado acima já esta aberto.
   Begin
      Application.Title := 'NomeDaAplicação'; // Definindo um nome para aplicação
      Application.Initialize;
      Application.CreateForm(TForm1, Form1);
      Application.Run;
   End;
End.