[NumLock]

используй StrUtils.AnsiUpperCase():

Код:

DWORD CharUpperBuff(
    LPTSTR lpsz,	// pointer to buffer containing characters to process 
    DWORD cchLength 	// number of characters to process  
   );