请问如何将TFilestream或者TStrings转换成STRING值。有段代码如下：(10分)

请问如何将TFilestream或者TStrings转换成STRING值。
Function GetTitle(S:string):String;//想用流写怎么写
var ms,me:longint;
begin
while pos('<title>',s)<>0 do
begin
ms:=pos('<title>',s);
delete(s,1,ms+6);
me:=pos('</title>',s);
delete(s,me,length(s));
Result:=s;
end;
end;

TStringtream

接受答案了.