O que há de errado com essa função?

Pessoal, uso o delphi 2010 e essa função apresenta o seguinte erro, alguém poderia me ajudar a resolver este problema? Desde já, grato a todos!

function FastUpperCase(const s: String): string;
{Fast uppercase}
var
I: Integer;
C: Char;
begin
Result := S;
I := Length(Result);
while I > 0 do
begin
C := Result[I];
if C in [#97..#122] then
Dec(Byte(Result[I]), 32); //o erro é nessa linha
Dec(I);
end;
end;

a mensagem de erro é: [Error] ifps3utl.pas(549): E2064 Left side cannot be assigned to

já com esse outro trecho de código tenho o seguinte erro:

function CheckReserved(Const S: ShortString; var CurrTokenId: TIfPasToken): Boolean;
var
L, H, I: LongInt;
J: Char;
SName: ShortString;
begin
L := 0;
J := S[0];

o erro apresentado é esse: [Error] ifps3utl.pas(655): E2010 Incompatible types: 'Char' and 'AnsiChar'