Erro em Laço com inserção em MEMO

Boa tarde galera!!

Estou montando um analisador léxico, ou tentando, e me esbarrei numa porcaria de laço com dois MEMO, vou utilizar esse laço para quebrar o memo, que será a entrada de código para indentificar os tokens e jogar em outro memo o token com sua respectiva identificação...

não vai ser tá fácil como nesse código... mas fikei me perguntando pq esse maldito código abaixo não funcionou...

alguma idéia?? vlw

procedure TForm1.Button1Click(Sender: TObject);
var

nlinhas : integer;
count : integer;

 count:=0;
 nlinhas := Memo1.Lines.Count;

 repeat

 begin
 Memo2.Lines[count] := Memo1.Lines[count];
 count := count+1;
 end;

 until count <= nlinhas;

end;