顯示錯誤代碼對應的錯誤訊息

sStr := '['+IntToStr(ErrCode)+'] '+SysErrorMessage(GetLastError());
MessageBox(Application.Handle, PAnsiChar(sStr), '錯誤訊息', MB_ICONERROR);