Como Deixar a Primeira Letra da String Maiúscula | Delphi

Deixando a Primeira Letra Maiúscula de uma String com Delphi

Função para deixar somente a primeira letra da primeira palavra em maiúscula.

function SoPrimeiraLetraMaiuscula(p_texto: string): string;
begin
if p_texto <> '' then
result := UpperCase(Copy(p_texto,1,1))+LowerCase(Copy(p_texto,2,Length(p_texto)));
end; 

Exemplos:

1. BRASIL = Brasil
2. São Paulo = São paulo
3. Ano Novo = Ano novo