anchor.diff:    // open
     try
       Screen.Cursor := fmMain.WaitCursor;
  -    d1 := Now;
       kh := TKGameList.Create(aName, 'id', KombiloFormatString, nil,
                               Settings.DBCache);
  -    d2 := Now;
       //Screen.Cursor := crDefault;
       TerminateOpenDatabase(fmMain.ActivePage,
                             fmMain.ActiveView, kh, aName, num, node)
  -    ;d3 := Now;
  -    //fmMain.Caption := Format('%f %f %f %f %f', [d1, d2, d3, d2 - d1, d3 - d2]);
     except
       HandleOpenErrorMessage([U('Error opening database') + ' ' + aName]);
       ok := False
  
positive.code:   view.cl.Clear;
  
    for i := 0 to view.kh.Size - 1 do
    //for i := 0 to min(10, view.kh.Size) - 1 do
      begin
        {$if 1=0}
        s := view.kh.CurrentEntryAsString(i);
  
negative.code:   kh : TKGameList;
    n : integer;
    modified : boolean;
  begin
    // test if already open
    n := IsOpenInTab('', aName, modified);
  