Fórum Colocar em um edit a primeira letra de cada pal. em Maiús ? #174177

Galera quero colocar em um edit a primeira letra de cada palavra em Maiúscula, usei o código abaixo

function Maiuscula(Texto:String): String;
{Converte a primeira letra do texto especificado para
maiuscula e as restantes para minuscula}
var
OldStart: Integer;
begin
if Texto <> ´´ then
begin
Texto := UpperCase(Copy(Texto,1,1))+LowerCase(Copy(Texto,2,Length(Texto)));
Result := Texto;
end;
end;

Acontece que este código so me retorna a primeira palavra com a letra em maiúscula
Ex ao digitar

jose marcos diirr

o código me retorna

Jose marcos diirr

E o que eu quero na verdade e que ele me retorne

Jose Marcos Diirr e casso a palavra tenha (de da) estas fiquem em minúsculo
Ex.

jose carlos da silva

fique

Jose Carlos da Silva

Qualquer ajuda e bem vinda, obrigado desde já

Marcos Diirr