function ConvertHTML(AInput: WideString): WideString;
var
  Len, WriteLen, ReadPos, OldPos, WritePos: integer;
begin
  Len := Length(AInput);
  if Len = 0 then
    Exit;
  SetLength(Result, Len);
  ReadPos := 1;
  WritePos := 1;
  while ReadPos < Len do
  begin
    OldPos := ReadPos;
    while (AInput[ReadPos] <> WideChar('<')) and (ReadPos < Len) do
      Inc(ReadPos);
    WriteLen := ReadPos - OldPos;
    if WriteLen > 0 then
    begin
      Move(AInput[OldPos], Result[WritePos], WriteLen*2);
      Inc(WritePos, WriteLen);
    end;
    while (AInput[ReadPos] <> WideChar('>')) and (ReadPos < Len) do
      Inc(ReadPos);
    Inc(ReadPos);
  end;
  SetLength(Result, WritePos - 1);
end;