unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;

type
 TForm1 = class(TForm)
   Memo1: TMemo;
   Button1: TButton;
   Button2: TButton;
   Button3: TButton;
   RichEdit1: TRichEdit;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
   procedure Button3Click(Sender: TObject);
 private
 public
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure SaveToFile(const sFileName, sText: string); //старые надежные методы, сохраняет что даш, без самостоятельных преобразований
var
 F: TextFile;
begin
 AssignFile(F, sFileName);
 Rewrite(F);
 Write(F, sText);
 CloseFile(F);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 st: string;
begin
 Memo1.Lines.LoadFromFile('Check.txt');    //открываем файл содержащий #13#10, после сохраняем 3й кнопкой, 2я убедится что не получится
 //Memo1.Lines.LoadFromFile('Check3.txt'); //после коментарим певую строку, и раскоментариваем любую открывающую 3 файл который чисто с #10
 {with TStringList.Create do               //видим что ничего не поменялось, хотя текст "линуксовый"
 try
   LoadFromFile('Check3.txt');
   st:= Text;
   Memo1.Lines.Text:= st;
 finally
   Free;
 end;}
 //RichEdit1.Lines.LoadFromFile('Check3.txt');
end;

procedure TForm1.Button2Click(Sender: TObject); //TStringList сохраняет, и держит с #13#10, т.е. это чисто чтобы убедится
begin
 with TStringList.Create do
 try
   Text:= StringReplace(Memo1.Lines.Text, #13#10, #10, [rfReplaceAll]);
   SaveToFile('Check2.txt');
 finally
   Free;
 end;
 //Memo1.Lines.LoadFromFile('Check2.txt'); //так кстати тоже
end;

procedure TForm1.Button3Click(Sender: TObject); //только так можно сохранить с #10
begin
 SaveToFile('Check3.txt', StringReplace(Memo1.Lines.Text, #13#10, #10, [rfReplaceAll]));
end;

end.