샘플로 만들어 봤습니다...
Get2BytesStr('<가名나a다kk라_') => '가나다라'
Get2BytesStr('<가名나a다kk라_', False) => '가名나다라'
두번째 인자가 True 이면 한글만, False 이면 일어, 한자등등 2바이트 문자는 전부
리턴해주는 함수입니다

<!--CodeS-->
function Get2BytesStr(AStr: string; AOnlyHan: Boolean = True): string;
const
  MB_OFFSET          = $80;
var
  ii: Integer;
  rStr: string[2];
begin
  ii := 1;

  while ii < Length(AStr) do
  begin
    if Ord(AStr[ii]) >= MB_OFFSET then
    begin
      rStr := Copy(AStr, ii, 2);

      if AOnlyHan then
      begin
        if (rStr >= '가') and (rStr <= '헬') then
          Result := Result + rStr;
      end
      else
        Result := Result + rStr;

      ii := ii + 2;
    end
    else
      ii := ii + 1;
  end;
end;
<!--CodeE-->

한글이 아닌 다른 문자를 지워 버리셔도 될거 같고..

한글 관련 정보는 검색해 보시면 많구요..^^;

제가 보기엔 웹브라우져 컨트롤이나 기타 장치로 HTML소스를 받아온거 같은데요..

웹브라우져 컨트롤로 에서 받으신거라면..

memo1.text := webbrowser.document.body.innertext;  인가 하는 메소드로 쉽게 할수 잇습니다.

팁란에 innerhtml  innertext로 검색해보세요...

그럼..