Object pascal. Read textfile to variable of WideChar

Question

I have my function determines if WideChar var is a letter:

function TWordCounter.IsAlpha(ch: WideChar): boolean;
Begin
    ch := upcase(ch);
    isalpha := ((