1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Hilfe1Click(Sender: TObject);
const
    HH_HELP_CONTEXT = $F;
    MYHELP_FILE : string = 'xxxxx.chm' + Chr(0);
begin
    HH(application.Handle, PChar(xxxxordner+MYHELP_FILE), HH_HELP_CONTEXT, helpcontext);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

 

procedure TfrmMitgliederverwaltung.FormKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
var Path : String;
const
   HH_HELP_CONTEXT = $F;
   MYHELP_FILE : String = 'Verein.chm' + Chr(0);

begin
   Path := ToolsSystem.GetWorkPath + 'Hilfe\' + MYHELP_FILE;
   if Key =  VK_F1 then  // VK_F2 - VK_F12 gehen alle nur F1 nicht.
   begin
     case pgcMitglied.TabIndex of
       0:
         HH(Application.Handle, PChar(Path), HH_HELP_CONTEXT, 1002);
       1:
         HH(Application.Handle, PChar(Path), HH_HELP_CONTEXT, 1003);
       2:
         HH(Application.Handle, PChar(Path), HH_HELP_CONTEXT, 1004);
       3:
         HH(Application.Handle, PChar(Path), HH_HELP_CONTEXT, 1005);
       4:
         HH(Application.Handle, PChar(Path), HH_HELP_CONTEXT, 1006);
       5:
         HH(Application.Handle, PChar(Path), HH_HELP_CONTEXT, 1007);
       6:
         HH(Application.Handle, PChar(Path), HH_HELP_CONTEXT, 1008);
       7:
         HH(Application.Handle, PChar(Path), HH_HELP_CONTEXT, 1009);
       8:
         HH(Application.Handle, PChar(Path), HH_HELP_CONTEXT, 1010);
       9:
         HH(Application.Handle, PChar(Path), HH_HELP_CONTEXT, 1011);
       10:
         HH(Application.Handle, PChar(Path), HH_HELP_CONTEXT, 1012);
     end;
   end;
end;