Propongo la función mas económica y rentable para
capitalizar la primera letra de una palabra,
IVA incluido y descuento
O se queda satisfecho o le devolvemos su dinero
Si encuentra mas barato le abonamos la diferencia
Código Delphi
[-]cadena := StuffString(Texto,1,1,UpperCase(LeftStr(Texto,1)))