unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    function AppHelp(Command: Word; Data: Longint; var CallHelp: Boolean): Boolean;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.HelpFile := ExtractFilePath(Application.ExeName) + 'Project1.hlp';
//  Application.OnHelp := AppHelp;
end;

function TForm1.AppHelp(Command: Word; Data: Longint; var CallHelp: Boolean): Boolean;
begin
  Result := True;
  if Command = HELP_CONTEXTPOPUP then begin
    WinHelp(Handle, PChar(Application.HelpFile), Command, Data);
    CallHelp := False;
  end;
end;

end.