StringReplace wurde immer ein Zeichen ersetzen. Man müsste es somit für jeden Zeichen wiederholen (was auch keine Arbeit wäre).
Ansonsten aus dem Kopf:
Delphi-Quellcode:
function RemoveCharsFromString(const AStr, CharsToRemove: string): string;
var
i: Integer;
begin
Result := AStr;
for i := Length(Result) downto 0 do
if Pos(Result[i], CharsToRemove) > 0 then
//if Pos(AnsiUpperCase(Result[i]), AnsiUpperCase(CharsToRemove)) > 0 then
Delete(Result, i, 1);
end;