一个打字测试程序的问题

大家好，我是一名新手，想用delphi做一个打字程序。有下列想法，不知如何实现。有两个memo控件，一个里面事先有具体的一篇文章（memo1），另一个是空的（memo2），程序运行时，使用者在memo2中按照memo1中的文章敲入汉字，系统再把memo2中所敲汉字同memo1中的相比较，从而的出正确率。但问题出来了。现在memo1和memo2中都有汉字，并且使用者还在memo2中不断的敲入汉字，我如何把memo2中的汉字同memo1中的相比较（假设，如果使用者刚才所敲汉字正确，则memo1中的相应汉字变成绿色）？望告之具体代码。不胜感激。