StrToFloat aceitar apenas vírgula(,), mas somente vírgula?!

Será que isso é viável?
Olhem só, tentem executar este código

var
S: string;
R: Real;
begin
S := ´,´;
R := StrToFloat(S);
end;

Acreditem, isso não gera uma exceção! Alguém sabe por quê?