anchor.diff:  end;
   
   procedure TMainForm.btnShowIndex(Sender: TObject);
  -//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: procedure TMainForm.btnSearchClicked(Sender: TObject);
  begin
    DoSearch;
  end;
  
  procedure TMainForm.DisplaySelectedSearchResultTopic;
  
negative.code:     TabOrder := 2;
      Text := '';
      FontDesc := '#Edit1';
      OnChange := @IndexSearchEditOnChange;
      OnKeyPress :=@IndexSearchEditKeyPress;
    end;
  
    tsSearch := TfpgTabSheet.Create(PageControl1);
  