Las siguientes funciones devuelven el caracter que se pase como parámetro, bien en minúscula, bien en mayúscula:
Código Delphi
[-]
function CharAnsiLowerCase(const C: Char) : Char;
var
P: PChar;
begin
P := AnsiLower(@C);
Result := Char(C);
end;
function CharAnsiUpperCase(const C: Char) : Char;
var
P: PChar;
begin
P := AnsiUpper(@C);
Result := Char(C);
end;