ابتدا یک دکمه روی فرم قرار دهید و در داخل دکمه یعنی در خصوصیت on click دکمه کد زیر را وارد کنید.


;(ShellExecute (HWND(nil), 'open', 'calc','', '', SW_SHOWNORMAL)