HTML-->TEXT

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='>' then
begin
While Str[i+1]<>'<' do
begin
Inc(i);
if i > StrL Then Break;
NewStr := NewStr + Str;
end;//End While
end;//End if
end;//end While
Result := NewStr;
end;