Sejam bem vindos!

Hoje vou mostrar com o auxílio da classe TFormataTexto (que está disponível para download), como podemos formatar uma string nos padrões de título (primeiras letras em maiúsculo).

Primeiramente efetue o download da classe (no link download) e adicione-a em seu projeto (no menu "Project\Add to Project" selecione a classe e clique em abrir).
Ja temos a classe em nosso projeto e agora é preciso criarmos a função que vai charmar a classe e formatar nossa string, segue abaixo o exemplo desta função:

function formataString(pSText: String): String;
var
  Texto: TFormataTexto;
begin
  if (pSText <> '') then
  begin
    Texto := TFormataTexto.Create;
    pSText := Texto.Formata(pSText);
    Texto.Free;
  end;
  Result := pSText;
end;

Já estamos com a classe em nosso projeto e a função que ela utiliza, agora é só desfrutar.
Segue o exemplo do chamamento da função:

stringA := "adriano dias da silva";
stringB := formataString(stringA);

O resultado da stringB será "Adriano Dias da Silva".

Espero ter ajudado.

Qualquer dúvida, problema e/ou sugestão estou a disposição.