[ecfisa]

Hola satelier.

Probá de esta forma:

Código Delphi [-]
program Project1;

uses
  Forms, Windows,
  Unit1 in 'Unit1.pas' {Form1};

begin {$R *.res}
  (* verificar otra instancia de la aplicación *)
  if (CreateMutex(nil, False, 'Identificador_Unico_Del_Proceso')=0) or
     (GetLastError = ERROR_ALREADY_EXISTS)  then
    Halt(1); 
  // continuar...
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Un saludo.