Como Deixar as Primeiras Letras Maiúsculas | Delphi

Deixando a primeira letra de cada palavra em maiúscula no Delphi

Função para deixar a primeira letra de cada palavra em maiúscula em Delphi

function PrimeiraLetraMaiscula(Str: string): string;
var
  i: integer;
  esp: boolean;
begin
  str := LowerCase(Trim(str));
  for i := 1 to Length(str) do
  begin
    if i = 1 then
      str[i] := UpCase(str[i])
    else
      begin
        if i <> Length(str) then
        begin
          esp := (str[i] = ' ');
          if esp then
            str[i+1] := UpCase(str[i+1]);
        end;
      end;
  end;
  Result := Str;
end;

Exemplos:

1. são paulo = São Paulo
2. ano Novo = Ano Novo