anchor.diff:  constructor TMainForm.Create(AOwner: TComponent);
   begin
     inherited Create(AOwner);
  +  fpgApplication.OnException  := @MainFormException;
     OnShow  := @MainFormShow;
     Files := TList.Create;
     { TODO -oGraeme : Make Debug a menu option }
  
positive.code:     ProgressBar: TfpgProgressBar;
      lblStatus: TfpgLabel;
      lbIndex: TfpgListBox;
      {@VFD_HEAD_END: MainForm}
      Files: TList; // current open help files.
      Debug: boolean;
  
negative.code:   with edSearchText do
    begin
      Name := 'edSearchText';
      SetPosition(4, 20, 210, 26);
      Anchors := [anLeft,anRight,anTop];
      TabOrder := 1;
      Text := '';
  