function UPcas(s:string):string;
   begin
      for i:=1 to length(s) do
         if (s[i]>='A') and (s[i]<='Z') then s[i]:=chr(ord(s[i]) or 32);
      UPcas:=s;
   end;