anchor.diff:  const
     cLongName   = 'fpGUI Documentation Viewer';
     cCreatedBy  = 'Created by Graeme Geldenhuys';
  -  cVersion    = 'Version 1.0';
  +  cVersion    = 'Version 1.0 (alpha)';
   
   {@VFD_NEWFORM_IMPL}
   
  
positive.code: end;
  
  procedure TMainForm.btnShowIndex(Sender: TObject);
  var
    Count: integer;
    i: integer;
    s: TfpgString;
    f: THelpFile;
  begin
    f := THelpFile(Files[0]);
    lbIndex.Items.Clear;
    for i := 0 to f.Index.Count-1 do
  
      lbIndex.Items.AddObject(F.Index.GetTopic(i).Title, f.Topics[i]);
    lbIndex.Invalidate
  end;
  
  procedure TMainForm.btnGoClicked(Sender: TObject);
  
negative.code:   lbSearchResults.FocusItem := -1;
    lbSearchResults.Items.EndUpdate;
  
    Query.Free;
    SearchResults.Free;
  
    if lbSearchResults.Items.Count > 0 then
    begin
  