如何制作和使用帮助文件

如何制作和使用帮助文件(7)         procedure KeySearch1Click(Sender: TObject);
        procedure About1Click(Sender: TObject);
    private
        { Private declarations }
    public
        { Public declarations }
    end;

    var
        Form1: TForm1;

    implementation
    {$R *.DFM}

    procedure TForm1.Exit1Click(Sender: TObject);
    begin
        Close;
    end;

    procedure TForm1.contents1Click(Sender: TObject);
    begin
        Application.HelpFile := 'd:\winword\dxchlp.hlp';
        Application.HelpCommand(Help_Contents,0); { 显 示 帮 助 目 录}
 end;

    procedure TForm1.KeySearch1Click(Sender: TObject);
    begin
        Application.HelpFile := 'd:\winword\dxchlp.hlp';
        Application.HelpCommand(Help_PartialKey,0); { 显 示 关 键 字 搜 索}
 end;

    procedure TForm1.About1Click(Sender: TObject);
    var
        myAbout:TAboutbox;
    begin
        myAbout:=TAboutbox.Create(Self);{myAbout 是 类TAboutbox 的 一 个 实 例}
      myAbout.ShowModal; { 显 示“ 关 于”}
 end;

    end.

    unit Uniabout;

    interface
        uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls,Buttons, ExtCtrls;

    type
    TAboutBox = class(TForm)
        OKButton: TBitBtn;
        procedure OKButtonClick(Sender: TObject);
    private
        { Private declarations }
    public