Через 5 символов переход на новую строку

procedure TForm1.Button3Click(Sender: TObject);
Var f:TextFile; // объявление файловой переменной
st,str:String; // строковая переменная
begin
AssignFile(f,'in.txt'); // привязка названия файла к файловой переменной
{$I-} // отключение контроля ошибок ввода-вывода
Reset(f); // открытие файла для чтения
{$I+} // включение контроля ошибок ввода-вывода
if IOResult<>0 then // если есть ошибка открытия, то
begin
ShowMessage('Ошибка открытия файла C:\1.TXT');
Exit; // выход из процедуры при ошибке открытия файла
end;
 
While not EOF(f) do // пока не конец файла делать цикл:
begin
ReadLn(f,st); // читать из файла строку
str:= AnsiUpperCase(st);
st:=StringReplace(str,' ','',[rfReplaceAll]);
Memo1.Lines.Add(st); // выводить строку пользователю
 
end;
CloseFile(f); // закрыть файл

SC:= SC + 1;
STR_:= STR_+ memo1.text[i];
if SC = 5 then begin
                     sc:=0;
                     STR_:= STR_+ chr($D) + chr($A); 
                    end;

procedure TForm1.Button3Click(Sender: TObject);
Var f:TextFile; // объявление файловой переменной
st,str,STR_:String; // строковая переменная
i,SC:integer;
begin
AssignFile(f,'in.txt'); // привязка названия файла к файловой переменной
{$I-} // отключение контроля ошибок ввода-вывода
Reset(f); // открытие файла для чтения
{$I+} // включение контроля ошибок ввода-вывода
if IOResult<>0 then // если есть ошибка открытия, то
begin
ShowMessage('Ошибка открытия файла in.TXT');
Exit; // выход из процедуры при ошибке открытия файла
end;
 
While not EOF(f) do // пока не конец файла делать цикл:
begin
ReadLn(f,st); // читать из файла строку
str:= AnsiUpperCase(st);
st:=StringReplace(str,' ','',[rfReplaceAll]);
Memo1.Lines.Add(st); // выводить строку пользователю
 SC:=0;
 L:=Length (st);
 for i := 1 to L do
  begin
 SC:= SC + 1;
STR_:= STR_+ memo1.text[i];
if SC = 5 then begin
sc:=0;
STR_:= STR_+ chr($D) + chr($A);
 Memo1.Lines.Add(STR_);
end; end;
end;
CloseFile(f); // закрыть файл
end;

Memo1.Lines.LoadFromFile('in.txt');
Memo1.text:=StringReplace(Memo1.text,' ','',[rfReplaceAll]);
Memo1:=StringReplace(Memo1.text,  chr($D) + chr($A),'',[rfReplaceAll]);
STR_:='';
SC:=0;
L:=Length (Memo1.Text);
for i := 1 to L do
begin
  SC:= SC + 1;
  STR_:= STR_+ memo1.text[i];
    if SC = 5 then begin
                        sc:=0;
                        STR_:= STR_+ chr($D) + chr($A);
                       end;
end;
if sc < 5 then STR_:=STR_+ RightStr(Memo1.Text,SC); 
Memo1.Lines.Add(STR_);

procedure TForm1.Button3Click(Sender: TObject);
Var f:TextFile; // объявление файловой переменной
st,str,STR_,RStr:String; // строковая переменная
i,SC:integer;
begin
AssignFile(f,'in.txt'); // привязка названия файла к файловой переменной
{$I-} // отключение контроля ошибок ввода-вывода
Reset(f); // открытие файла для чтения
{$I+} // включение контроля ошибок ввода-вывода
if IOResult<>0 then // если есть ошибка открытия, то
begin
ShowMessage('Ошибка открытия файла in.TXT');
Exit; // выход из процедуры при ошибке открытия файла
end;
 
While not EOF(f) do // пока не конец файла делать цикл:
begin
ReadLn(f,st); // читать из файла строку
str:= AnsiUpperCase(st);
st:=StringReplace(str,' ','',[rfReplaceAll]);
//Memo3.Clear;
//Memo3.Lines.Add(st); // выводить строку пользователю
 SC:=0;
 L:=Length (st);
 for i := 1 to L do
  begin
 SC:= SC + 1;
STR_:= STR_+ st[i];
if SC = 5 then begin
sc:=0;
STR_:= STR_+ chr($D) + chr($A)  ;
 str:=str_;
 Memo1.Clear;
 Memo1.Lines.Add(STR);
end; end;
end;
CloseFile(f); // закрыть файл
end;