Преобразование спецсимволов с обратным слешем

[CraZZZy-GameRRR]

Подскажите пожалуйста, если ли в Delphi 7 из коробки что-нибудь для перевода строк с сишными спецсимволами с обратным слешем в паскалевский формат?
Например:

Str := 'lorem\tipsum\r\ndolor sit amet';
Str := Decode(Str);
// 'lorem' + #9 'ipsum' + #13 + #10 + 'dolor sit amet'

Или придётся изобретать велосипед? Спасибо.

[evg_m]

s:=stringreplace(s, '\r', #13#10, [rfreplaceall]);

[uberchel]

function Decode(str: string): string;
begin
 str:= stringreplace(str, '\r', #10, [rfreplaceall]);
 str:= stringreplace(str, '\n', #13, [rfreplaceall]);
 str:= stringreplace(str, '\t', ' ', [rfreplaceall]);
 Result:= str;
end;

[CraZZZy-GameRRR]

Значит всё-таки велосипед. Странно, что Borland не предоставил штатное решение для распространённой задачи.