Вот сам кусок кода
procedure TForm1.N4Click(Sender: TObject);
begin
ShellExecute (Handle,'open',Pchar(ExtractFilePath(Application.ExeName)+'Help.chm'),Nil,Nil,Sw_ShowNormal);
end;
procedure TForm1.N4Click(Sender: TObject);
begin
ShellExecute (Handle,'open',Pchar(ExtractFilePath(Application.ExeName)+'Help.chm'),Nil,Nil,Sw_ShowNormal);
end;