Problemillas con el Memo...

[VaMPiRu]

Bueno, al apretar una botón quiero que se haga la misma función que el Backspace sobre un memo, es decir borrar el último caracter, hasta aquí bien.

El problema viene cuando el memo tiene un "Enter" o salto de línea. Cuando hago dicho salto de línea lo hago con:

Código Delphi [-]
    if (Key=13) then
    begin
      memUsuario.Text:=memUsuario.Text+#13+#10;
    end;

Añado lo del carry y el salto. Ahora no entiendo porqeúe haciendo el paso inverso no me "sale bien", me aparece un símbolo rarito en el Memo, es como si borrara el salto de línea pero el retorno de carro no.

Ésto es lo que hago al borrar:

Código Delphi [-]
if (memUsuario.Lines.Strings[length(memUsuario.Text)]=#13+#10) then
      begin
        showmessage('asd');
        memUsuario.Text:=Copy(memUsuario.Text,0,length(memUsuario.Text)-2);//Si lo encuentra, pues que borre los 2 últimos
      end
      else
      begin
        memUsuario.Text:=Copy(memUsuario.Text,0,length(memUsuario.Text)-1);//Sino va borrando el último, ya me va bien así
      end;

No entra al if porque el mensaje feo no me sale
A ver si alguien me ilumina =)