procedure TForm1.Help1Click(Sender: TObject);
begin
  Application.HelpFile := 'Edit.HLP';
  Application.HelpJump('TApplication_HelpJump');
end;