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.