Как сохранить текст из Memo в файл, но без служебных символов

type
  TMyMemo = class(TMemo)
  private
  public
    procedure SaveToFile(const FileName: string);
  end;

  TForm1 = class(TForm)
    procedure MemoChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    FMemo: TMyMemo;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TMyMemo.SaveToFile(const FileName: string);
var
  I, Count: Integer;
  Stream: TStream;
  S: string;
begin
  S := Self.Text;
  Count := Length(Self.Text);
  I := 0;
  while I < Length(S) do
  begin
    if Copy(S, I, 2) = #13#10 then
    begin
      Delete(S, I, 2);
      Insert(' ', S, I);
    end
    else if (Copy(S, I, 1) = #13) or (Copy(S, I, 1) = #10)
      or (Copy(S, I, 1) = #9) then
    begin
      Delete(S, I, 1);
      Insert(' ', S, I);
    end;
    Inc(I);
  end;
  Stream := TFileStream.Create(FileName, fmCreate);
  try
    Stream.WriteBuffer(Pointer(S)^, Length(S));
  finally
    Stream.Free;
  end;
end;

procedure TForm1.MemoChange(Sender: TObject);
begin
  FMemo.SaveToFile('c:\memo.txt');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FMemo := TMyMemo.Create(Form1);
  FMemo.Parent := Form1;
  FMemo.OnChange := MemoChange;
end;