anchor.diff:    begin
       Name := 'miFile';
       SetPosition(244, 28, 132, 20);
  -    AddMenuItem('Open...', '', nil);
  +    AddMenuItem('Open...', '', @miFileOpenClicked);
       AddMenuitem('-', '', nil);
       AddMenuItem('Quit', '', @miFileQuitClicked);
     end;
  
positive.code: procedure TMainForm.miHelpAboutFPGui(Sender: TObject);
  begin
    TfpgMessageDialog.AboutFPGui;
  end;
  
  constructor TMainForm.Create(AOwner: TComponent);
  
negative.code:   Close;
  end;
  
  procedure TMainForm.miFileOpenClicked(Sender: TObject);
  var
    dlg: TfpgFileDialog;
  begin
    dlg := TfpgFileDialog.Create(nil);
    try
      dlg.Filter := 'INF Help (.inf)|*.inf|HLP Help (.hlp)|*.hlp';
      // and a catch all filter
      dlg.Filter := dlg.Filter + '|(' + rsAllFiles + ' (*)|*';
  
      if dlg.RunOpenFile then
        HelpFile := dlg.FileName;
    finally
      dlg.Free;
    end;
  end;
  
  procedure TMainForm.miHelpProdInfoClicked(Sender: TObject);
  begin
    TfpgMessageDialog.Information('Product Information', 'Created by Graeme Geldenhuys');
  