안녕하세요. 타락천사 입니다.

Delphi7 에서 일본어와 중국어가 깨져 나오지만, 
Internet Explorer 에서는 일본어팩과 중국어팩을 설치 하지 않아도 일본어와 중국어 사이트가 나옵니다.

텍스트를 쓸때 Unicode로 쓰는 함수 DrawTextW() 로 쓰면 일본어와 중국어가 깨지지 않고 나옵니다.

DrawTextW() 는 DrawText() 와 사용방법이 동일합니다.

Delphi7 의 컴포넌트는 텍스트 표시 할 때 DrawText 를 쓰기 때문에 글자가 깨집니다.
대표적으로 TLabel 이 있습니다.

TLabel 을 상속받아 DrawText() 호출 함수만 DrawTextW() 호출로 변경 하시든가,
다시 만드시든가 하면 됩니다.

표시는 유니코드로 하면 되지만...

입력 받을 때는 당연히 언어 팩이 있어야 합니다.
에디트에 일본어를 쓰려면 일본어 언어팩이 설치 되어야 합니다.

아래는 제 TLabel 컴포에서 쓰는 부분

  // Draw Caption
  Canvas.Brush.Style := bsClear;
  if FShowCaption then     // 캡션이 있으면
  begin
    sText := xyReplaceW('#13#10', #13#10, FCaption);     // 텍스트의 "#13#10" 을 #13#10 으로 변환

    Canvas.Font.Assign(Font);
    if not Enabled then
      Canvas.Font.Color := FColorDisable;

    // 기본 인자
    DrawStyle := DT_EXPANDTABS or DT_EDITCONTROL
          or WORD_WRAP_TEXT[FWordWrap] or ALIGNMENT_TEXT[FAlignment]
          or WORD_ELLIPSIS_TEXT[FWordEllipsis];

    // 의미 없다. 언어를 왼쪽부터 쓸까, 오른쪽 부터 쓸가 여부다. 아랍에선 오른쪽부터 쓴다.
    DrawStyle := DrawTextBiDiModeFlags(DrawStyle);
    CalcRect := MyRect;

    // 좌우 정렬은 계산 한다.
    if FAlignment = taLeftJustify then
      MyRect.Left := MyRect.Left + FSpaces[0]
    else if FAlignment = taRightJustify then
      MyRect.Right := MyRect.Right - FSpaces[0];

    // 위 아래 정렬은 인자로 DT_CALCRECT 를 넣어 얻는다.
    case FLayout of
      tlTop: MyRect.Top := MyRect.Top + FSpaces[1];
      tlCenter:
        begin
          DrawTextW(Canvas.Handle, PWideChar(sText), Length(sText), CalcRect, DrawStyle or DT_CALCRECT);
          OffsetRect(MyRect, 0, ((SrcRect.Bottom - CalcRect.Bottom) div 2) + FSpaces[1]);
        end;
      tlBottom:
        begin
          DrawTextW(Canvas.Handle, PWideChar(sText), Length(sText), CalcRect, DrawStyle or DT_CALCRECT);
          OffsetRect(MyRect, 0, SrcRect.Bottom - CalcRect.Bottom - FSpaces[1]);
        end;
    end;

    // 정해진 영역에 Unicode 를 그린다.
    DrawTextW(Canvas.Handle, PWideChar(sText), Length(sText), MyRect, DrawStyle);
  end;