anchor.diff:      Name := 'miFile';
       SetPosition(244, 28, 132, 20);
       AddMenuItem('Open...', '', @miFileOpenClicked);
  +    AddMenuItem('Close', '', @miFileCloseClicked);
       AddMenuitem('-', '', nil);
       AddMenuItem('Quit', '', @miFileQuitClicked);
     end;
  
positive.code:   end;
  
    LoadContents;
  end;
  
  procedure TMainForm.OnHelpFileLoadProgress(n, outof: integer; AMessage: string);
  
negative.code:   end;  { while }
  end;
  
  procedure TMainForm.ClearNotes;
  begin
    { TODO -oGraeme : Implement me }
  end;
  
  procedure TMainForm.SaveNotes(AHelpFile: THelpFile);
  begin
    { TODO -oGraeme : Implement me }
  end;
  
  constructor TMainForm.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
  