Title Case

// uses sysutils
function TitleCase(const s: string): string;
var
 i: integer;
begin
if s = '' then
   Result := ''
else
begin
   Result := Uppercase(s[1]);
  for i := 2 to Length(s) do
    if s[i - 1] = ' ' then
       Result := Result + Uppercase(s[i])
    else
       Result := Result + Lowercase(s[i]);
end;
end;