anchor.diff:  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
  +//var
  +//  Count: integer;
  +//  i: integer;
  +//  s: TfpgString;
  +//  f: THelpFile;
  +begin
  +  DisplaySelectedIndexTopic;
  +  //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);
  
positive.code: const
    cLongName   = 'fpGUI Documentation Viewer';
    cCreatedBy  = 'Created by Graeme Geldenhuys';
    cVersion    = 'Version 1.0';
  
  {@VFD_NEWFORM_IMPL}
  
  
negative.code:   s: TfpgString;
  begin
    s :=  cLongName + LineEnding + LineEnding
        + cCreatedBy + LineEnding
        + cVersion + '  -  '+  {$I %date%} + ' ' + {$I %time%};
  
    TfpgMessageDialog.Information('Product Information', s);
  