Como eliminar el Retorno de Carro al final de un TString

[[gluglu]]

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.