[Lazarus-es] lowercase

[Paola Bruccoleri]

Hola todos..
tengo una función que convierte una descripción q está toda en 
mayúsculas a minúsculas excepto la primera letra.

function AMinusc( sCadena : String ) : String;
begin
   if sCadena <> '' then
     result := sCadena[1] + LowerCase(Copy(sCadena,2,200))
   else
     result := '';
end;

el problema es con las letras con tilde o ñ, que siempre me las deja en 
mayúscula.
Por ejemplo:
PULPÓN -> PulpÓn

quizás haya alguna otra función que me esté olvidando ahora
muchas gracias!