{ convert upper case letters to lower case }
Valid_Ch := ['A'..'Z'];
For Location := 1 to Length(St) Do
If St[Location] IN Valid_Ch
Then St[Location] := CHR(ORD(St[Location]) + 32);
{ convert upper case letters to lower case }
Valid_Ch := ['A'..'Z'];
For Location := 1 to Length(St) Do
If St[Location] IN Valid_Ch
Then St[Location] := CHR(ORD(St[Location]) + 32);