anchor.diff:      sep := ' > ';
     end;
     SetStatus(s);
  +  UpdateTitlePanel;
  +end;
  +
  +procedure TMainForm.UpdateTitlePanel;
  +begin
  +  pnlTitle.Text := CurrentTopic.Title;
   end;
   
   procedure TMainForm.EnableControls;
  
positive.code:     procedure   DisplaySelectedSearchResultTopic;
      procedure   NavigateToHistoryIndex(AIndex: integer);
      procedure   UpdateLocationPanel;
      procedure   EnableControls;
      procedure   ClearAllWordSequences;
      procedure   DoSearch;
  
negative.code:   with tsIndex do
    begin
      Name := 'tsIndex';
      SetPosition(3, 24, 254, 279);
      Anchors := [anLeft,anRight,anTop,anBottom];
      Text := 'Index';
    end;
  
  