s := LowerCase(s);
for i := 1 to length(s) do
 if(i = 1)or(s[i-1] = \\\' \\\')then
  s[i] := char(ord(s[i]) and not $20)