如何恢复因 Delphi 中编码错误而损坏的文本？

How to restore text broken due to wrong encoding in Delphi?

我使用 Delphi 2009。我收到一个字符串形式的文本，看起来像 'Р'РёР·РіСѓРЅРѕРІ (СЂР°РЅРЅРёР№) {VHS}'。使用在线解码器，我能够确定它实际上是 Win-1251 代码页。

我应该怎么做才能恢复正常，换句话说，让它再次可读？

var s: string;
    rbs: RawByteString;
begin
    rbs := Utf8ToAnsi('Р’РёР·РіСѓРЅРѕРІ (СЂР°РЅРЅРёР№) {VHS}');
    SetCodePage(rbs, 1251, false);
    s := string(rbs); // s = 'Визгунов (ранний) {VHS}'
end;