procedure TMainForm.Button1Click( Sender : TObject );
var
  str : string;
  pStr : PWideChar;
  isHZ : Boolean;
  i , s, m : Integer;
  byteArr : TBytes;
begin
  str := Trim( EditStr.Text );
  pStr := PWideChar( str );
  byteArr := WideBytesOf(str);

   while pStr^ <> #0 do
    begin
        //  漢字
      case pStr^ of
        Char($4E00) .. Char($9FA5) :
        begin
           isHZ := True;
           Break;
        end ;
        // 全形中文符號
        Char($FF00) .. Char($FFEF) :
        begin
           isHZ := True;
           Break;
        end ;
        // 半形中文符號
        Char($3000) .. Char($303F) :
        begin
           isHZ := True;
           Break;
        end ;
        else
          EditChar.Text :=       EditChar.Text + pStr^;
      end;

      Inc( pStr );
    end;
    //
    if isHZ then
      Vcl.Dialogs.MessageDlg('包含漢字',mtInformation,[mbOK],0)
    else
      Vcl.Dialogs.MessageDlg('沒有包含漢字！',mtInformation,[mbOK],0);

end;