[mizantrop]

а у меня вот такой исходник сработал:

function DecodeText(text:string) : string;
var i, len, cid, tilda:integer;
result,substr:string;
c:char;
work:boolean;
begin
	tilda := ord('~');
	len := length(text);
	result := text;
	for i := 0 to len - 1 do begin
		c := GetChar(text, i);
		cid := ord(c);
		if cid > tilda then begin
			cid := cid + 848;
			result := SetChar(result, chr(cid), i);
		end;
	end;
	DecodeText := result;
end;