Create jh_Basic.pas

Test 1sf