Source position: strutils.pp line 253
procedure RemoveTrailingChars(
var S: AnsiString;
const CSet: TSysCharset
);