lang:=upcase(GetEnvironmentVariable('LANG')); \r
UTF8Scr:= (Pos('.UTF-8', lang) > 0) or (Pos('.UTF8', lang) > 0);\r
{ Check min req col & rows}\r
lang:=upcase(GetEnvironmentVariable('LANG')); \r
UTF8Scr:= (Pos('.UTF-8', lang) > 0) or (Pos('.UTF8', lang) > 0);\r
{ Check min req col & rows}\r