anchor.diff:    s: TfpgString;
   begin
     s :=  cLongName + LineEnding + LineEnding
  -      + cCreatedBy
  +      + cCreatedBy + LineEnding
         + cVersion + '  -  '+  {$I %date%} + ' ' + {$I %time%};
   
     TfpgMessageDialog.Information('Product Information', s);
  
positive.code:   lbSearchResults.FocusItem := -1;
    lbSearchResults.Items.EndUpdate;
  
    Query.Destroy;
    SearchResults.Destroy;
  
    if lbSearchResults.Items.Count > 0 then
    begin
  
negative.code: const
    cLongName   = 'fpGUI Documentation Viewer';
    cCreatedBy  = 'Created by Graeme Geldenhuys';
    cVersion    = 'Version 1.0 (alpha)';
  
  {@VFD_NEWFORM_IMPL}
  
  