[NumLock]

массив не нужен.

Код:

function UpperCase(const S: string): string;