delphi evitar que mi aplicacion se abra 2 veces en el mismo pc

procedure TForm1.FormCreate(Sender: TObject);
begin

 //***** evita que se abra 2 veces el programa
 CreateMutex(nil, False, 'MyAppId');
 if GetLastError <> 0 then Halt;

end;





.