A
Problem hat sich erledigt!
Der Aufruf muss in das OnKeyDown Ereignis:
void __fastcall THauptF::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(Key == VK_F1)
ShellExecute(HauptF->Handle, "open", "ESB.chm", NULL, NULL, SW_SHOWNORMAL);
}
Vielen Dank trotzdem!