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:     HotTrack := False;
      PopupFrame := False;
      TabOrder := 9;
    end;
  
    Label3 := TfpgLabel.Create(tsSearch);
  
negative.code:   {$IFDEF Timing}
    ,EpikTimer
    {$ENDIF}
    ,TextSearchQuery, SearchUnit;
  
  
  {@VFD_NEWFORM_IMPL}
  
  procedure TMainForm.MainFormException(Sender: TObject; E: Exception);
  begin
    TfpgMessageDialog.Critical('An unexpected error occurred.', E.Message);
  end;
  
  procedure TMainForm.MainFormShow(Sender: TObject);
  {$IFDEF Timing}
  