Porownywanie wczytanego i wpisanego tekstu w dwoch polach me

Witam...
Probóje zrobić program do nauki pisania na klawiaturze...
Mam dwa pola memo... jedno pod drugim...w każdym z nich jest miejsce na 1 linie tekstu, do memo 1 wczytuje jakijś tam tekst linia po lini za pomocą procedury:

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
linia : String;
plik: TextFile;
begin
AssignFile(plik, 'tekst1.gaf');
Reset(plik);
while not Eoln(plik) do
Begin
Read(plik, linia);
end;
Memo1.Text:=linia;
CloseFile(plik);
end;

i mam teraz taki problem...

jak napisać procedurę która pozwoli mi wpisywać kolejne znaki z klawiatury do memo2... porówna go ze znakiem który znajduje się na tej samej pozycji w memo1, sprawdzi czy jest on taki sam czy też nie... i przejdzie do następnego znaku... ?? męcze się z tym już jakijś czas i byłbym bardzo wdzięczny za każdą pomoc...

Pozdrawiam

Jezu, czemu tego nie ma w Newbie?

if memo2.text<>memo1.text then //żeby było szybciej
begin
  for i:=1 to length(memo1.text) do
    if memo2.text[i]<>memo1.text[i] then showMessage('Znak jest różny')
end;

Jeśli ma sprawdzać tylko do pierwszego błędnego znaku to dodaj w pętli jeszcze break.
Poza tym możesz dodać porównanie długości tekstów z memo.