Контроль запуска одного экземпляра программы

var ZF:TZipFile;

procedure Form1_OnClose (Sender: TObject; Action: string);
begin
  ZF.Free;
end;

begin
    try
    ZF:=TZipFile.Create;
    ZF.Open('~$applock',zmWrite);
    except
      ShowMessage('Уже запущен экземпляр программы');
      Form1.Close;
    end;
end.

if FindWindow(nil,'Database') <> 0 then

    try
    ZF:=TZipFile.Create;
    ZF.Open('C:\Windows\Temp\~$applock',zmWrite);
    except
      ZF.Free;
      MessageBox('Уже запущен экземпляр программы','Ошибка',MB_OK+MB_ICONINFORMATION);
      Application.Minimize;
      frmFon.Close;

frmFon.OnCloseQuery := @frmFon_OnCloseQuery;

begin
...
end.

procedure frmFon_OnShow (Sender: TObject; Action: string);
begin
    //Контроль запуска одного экземпляра программы
    if FindWindow('','already_launched')>0 then
        begin
            MessageBox('Уже запущен экземпляр программы','Ошибка',MB_OK+MB_ICONINFORMATION);
            Application.Minimize;
            frmFon.Close;
        end;

    with TForm.Create(Application) do
    begin
        Name := 'already_launched';
        BorderStyle := bsNone;
        Width:=0;
        Height:=0;
        Show;
        Hide;
    end;
   
    begin
        //При стиле "без рамки" убирает второе окно
        frmMain.Parent := frmFon;

        frmMain.Show;
        frmMain.TableGrid1.dbUpdate;
    end;
end;

begin
    frmFon.OnCloseQuery := @frmFon_OnCloseQuery;
end.

Это чтоб на панели задач не было открыто много окон при открытых двух формах...