Function StrLower(s: String):String;
  Var i: Byte;
  Begin
    For i := 1 To Ord(s[0]) Do
      Case s[i] Of
        'A' .. 'Z': s[i] := Chr(Ord(s[i])+$20);
        #128 .. #143: s[i] := Chr(Ord(s[i])+$20);
        #144 .. #159: s[i] := Chr(Ord(s[i])+$50)
      End;
    StrLower := s
  End;