Fórum Bug em Função UpperCase e LowerCase ..Será???? #261061

procedure BugSera;
var
palavra:String;
testo:String;
i:Integer;
begin
  palavra:=´ÇÇÇABCD´;
  texto:=´´;
  for i:=1 to length(palavra) do
      texto:=Texto + LowerCase(palavra[i]);
  Showmessage(Texto);
  Palavra:=´çççabcd´;
  Texto:=´´;
   for i:=1 to length(palavra) do
       texto:=Texto +UpperCase(palavra[i]);
   Showmessage(Texto);
end;