El 26/09/2012 08:08 p.m., franmate en gmail.com escribió: > Hola, > > Cambia result := sCadena[1] + LowerCase(Copy(sCadena,2,200)) > Por result := utf8Copy(sCadena,1,1) + > UTF8LowerCase(utf8Copy(sCadena,2,200)) > > No olvides incluir la unidad LCLProc en el uses > > Atte > FranMacías Hola Fran.. perfecto! muchas gracias!