急！如何使用 Rtf2html。我是程序员大本营中下的Rtf2Html.转换成HTML式 (100分)

在程序员大本营中下载了Rtf2Html，但是按照用如下方法总是得不到格式，出来都是乱码。
最好有其它源码或示范程序？是不是Rtf2Html这个过程有问题。
var
s:string
stream:TStream;
begin
stream:=TMemoryStream.create;
s:=Rtf2html(richedit1.lines.text);
stream.writebuffer(Pointer(s)^,length(s));
stream.savetofile('Hello.htm');
stream.free;
end;

s:=Rtf2html(richedit1.lines.text);这样用从逻辑上讲毫无道理。

richedit1.lines.text是纯文本信息，不包含任何格式。

修正了以上代码，还是不行
var
s:string
stream:TMemoryStream;
begin
stream:=TMemoryStream.create;
richedit1.lines.savetostream(stream);
stream.position:=0;
setString(s,nil,stream.size);
stream.readbuffer(Pointer(s)^,stream.size);
s:=rtf2html(s);
stream.clear;
stream.writebuffer(Pointer(s)^,length(s));
stream.savetofile('Hello.htm');
stream.free;
end;
请大家帮我看一看，急

已经解决了不好意思今天才分。