function Html2Text(Str : String):String;
var
StrL, i : Integer;
NewStr : String;
begin
StrL := StrLen(PChar(Str));
i := 0;
While i < StrL do
begin
Inc(i);
if Str[i]='>' then
begin
While Str[i+1]<>'<' do
begin
Inc(i);
if i > StrL Then Break;
NewStr := NewStr + Str[i];
end;//End While
end;//End if
end;//end While
Result := NewStr;
end;