while StrReplace( S, '\n\r\n\r', #13#10#13#10) do;
  while StrReplace( S, '\r\n\r\n', #13#10#13#10) do;
  while StrReplace( S, '\n\r\r\n', #13#10#13#10) do;
  while StrReplace( S, '\r\n\n\r', #13#10#13#10) do;
  while StrReplace( S, '\n\r', #13#10) do;
  while StrReplace( S, '\r\n', #13#10) do;