Check for uppercase? [RESOLVED]

[BIGGY]

Well I finally figured it out. Man this took much longer than I thought for such a simple thing, but I guess my mind works slowly

stringvar x;
numbervar i;
stringvar z;
numbervar strLen;
global stringvar UCaseCheck := 'Pass';

strLen := len({Command.Invoice Number});
x := totext({Command.Invoice Number});
z := totext({Command.Invoice Number});
ucase(x);

For i := 1 to strLen Do
(
Local NumberVar charPos := i;
if AscW(x[charPos]) <> AscW(z[charPos]) then UCaseCheck := 'Fail';
);

UCaseCheck;