El código no te dirá mucho
Código Delphi
[-]for I := Editor.Lines.Count - 1 downto Aux_Pos do
Editor.Lines.Delete(I);
Es un tema de comprobación en tiempo de ejecución. Puedes comprobar lo que expliqué arriba. Si borras líneas del Editor.Lines, la última que se queda tiene el #13#10 al final y el usuario puede posicionarse en el principio de la 'siguiente línea' que en este caso tenía un formato diferente.