HTML-Code im Memo umwandeln?

[Loki77]

Hab vor kurzem ´n was gemacht;
HTML-Tags ´rausschneiden:

Delphi-Quellcode:

function StripHTML(S: Ansistring): Ansistring;
var
  TagBegin, TagEnd, TagLength : integer;

begin
  delete(s, 1, pos('<body', lowercase(s))-1);

  TagBegin := Pos( '<', S);
  while (TagBegin > 0) do begin
    TagEnd := Pos('>', S);
    TagLength := TagEnd - TagBegin + 1;
    Delete(S, TagBegin, TagLength);
    frmMain.ProgressBar.StepBy(1);
    TagBegin:= Pos( '<', S);
end;
  Result := S;
end;

Schwierig wirds nur wenn die Mail '<' oder '>' enthält(als Text).....