Vergleichen in TeX, Rechtschreibprüfung

Für eine Rechtschreibprüfung innerhalb von TeX müsste man in der Lage sein, die horizontalen Boxen, die aus den Zeichen erzeugt werden, abzufangen und einem Vergleich zu unterziehen.

Hier zunächst eine Vergleichsroutine, die im letzten Vergleich nicht funktioniert. Gibt es dazu Tipps?

\documentclass[a4paper]{article}
\usepackage[utf8]{inputenc}
\usepackage[ngerman]{babel}
\begin{document}
\vskip\baselineskip
\def\A{C}
\def\B{C}
Der Vergleich ergibt \A \B \ \ifx\A\B Richtig \else FALSCH \fi
\vskip\baselineskip
\def\A{C}
\def\B{D}
Der Vergleich ergibt \A \B \ \ifx\A\B Richtig \else FALSCH \fi
\vskip\baselineskip
\def\A{{Dies}}
\def\B{{Dies}}
Der Vergleich ergibt \A \B \ \ifx\A\B Richtig \else FALSCH \fi
\vskip\baselineskip
\def\A{{Das}}
\def\B{{Dies}}
Der Vergleich ergibt \A \B \ \ifx\A\B Richtig \else FALSCH \fi

\vskip\baselineskip
\setbox1=\hbox{Das}
\setbox2=\hbox{Das}
\def\A{\copy1}
\def\B{\copy2}
Der Vergleich ergibt \A \B \ \ifx\A\B Richtig \else FALSCH \fi
\end{document}