Remove um caractere especificado de uma string

Função que remove um caractere especificado de uma string em Delphi

function RemoveAllChars(S: string; Ch: Char): string;
var
i: Integer;
begin
i := Length(S);
while (Length(S) > 0) and (i > 0) do begin
if S[i] = Ch then
Delete(S,i,1);
Dec(i);
end;
Result := S;
end;