Как определить работает ли уже данное приложение или это его первая копия

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Проверяем есть ли указатель на предыдущую копию приложения
  if hPrevInst <> 0 then begin
    // Если есть, то выдаем сообщение и выходим
    MessageDlg('Программа уже запущена!', mtError, [mbOk], 0);
    Application.Terminate;
  end;
  // Иначе - ничего не делаем (не мешаем созданию формы)
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Wnd : hWnd;
  buff : array[0.. 127] of Char;
begin
  //Получили указатель на первое окно
  Wnd := GetWindow(Handle, gw_HWndFirst);
  // Поиск
  while Wnd <> 0 do begin
    // Это окно предыдущей копии ?
    if (Wnd <> Application.Handle) and (GetWindow(Wnd, gw_Owner) = 0) then
    begin
      GetWindowText (Wnd, buff, sizeof (buff ));
      if StrPas (buff) = Application.Title then
      begin
        MessageDlg('Приложение уже загружено', mtWarning, [mbOk], 0);
        Halt;
      end;
    end;
    Wnd := GetWindow (Wnd, gw_hWndNext);
  end;
end;

program Project1;
uses
  Windows, // Обязательно
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}
const
  MemFileSize = 1024;
  MemFileName = 'one_inst_demo_memfile';
var
  MemHnd : HWND;
begin
  // Попытаемся создать файл в памяти
  MemHnd := CreateFileMapping(HWND($FFFFFFFF),
    nil, PAGE_READWRITE, 0, MemFileSize, MemFileName);
  // Если файл не существовал запускаем приложение
  if GetLastError<>ERROR_ALREADY_EXISTS then
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
  CloseHandle(MemHnd);
end.

program Project0;
uses
  Windows, // !!!
  Forms,
  Unit0 in 'Unit0.pas' {Form1};

var
  Handle1 : LongInt;
  Handle2 : LongInt;

{$R *.RES}

begin
  Application.Initialize;
  Handle1 := FindWindow('TForm1',nil);
  if handle1 = 0 then
  begin
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end
  else
  begin
    Handle2 := GetWindow(Handle1,GW_OWNER);
    //Чтоб заметили :)
    ShowWindow(Handle2,SW_HIDE); ShowWindow(Handle2,SW_RESTORE);
    SetForegroundWindow(Handle1); // Активизируем
  end;
end.

procedure TForm1.FormCreate(Sender: TObject);
var
  hMutex : THandle;
begin
  hMutex := CreateMutex(0, true , 'My application name');
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    CloseHandle(hMutex);
    Application.Terminate;
  end;
end;