1:
2:
3:
4:
5:
6:
7:
8:

var
  apos: Integer;
begin
  ...
  atext := Copy(atext, 1, apos - 1) + #13#10 +
            Copy(atext, pos, Length(atext) - apos)
end;