음.. 초보입니다.
그래도 제생각을 올려보죠.
우선 richedit1 내용을 sTemp라는 곳에 담고
시작하죠

var
    i, len    : integer;
    sTemp, sResult : String;
begin
    sResult := '';
    sTemp := richedit1.Text;
    len := length(sTemp);
    for i := 1 to len do
    begin
        if (copy(sTemp,i,1) = #13) then
        begin
            sResult := sResult + ' ';
            if (length(sResult) mod 30) = 0 Then
            begin
                 sResult := sResult + #13#10;
            end;
        end
        else if (copy(sTemp,i,1) = #10) then
        begin
            if (length(sResult) mod 30) = 0 Then
            begin
                 sResult := sResult + #13#10;
            end;
        end
        else
        begin
            sResult := sResult + copy(sTemp,i,1);
            if (length(sResult) mod 30) = 0 Then
            begin
                 sResult := sResult + #13#10;
            end;
        end;
    end;

    RichEdit2.text := sResult;
end;


여기서 문제가 있는데 저도 고수님들의 도움이 필요하겠죠.. ^^
문제는 한글을 30byte 개념(맞나?)으로 나누다 보면 깨집니다.
이건 저도 어쩔수 없는뎅. *^^*

안녕하세요...답변주셔서 정말 감사합니다.

그런데, 제가 처리해야할 문제는

richedit1의  문자열을 전체를  합쳐서 15자(30byte)씩 다시 자르는 것이 아니고

richedit2에 라인당 15자 미만으로 richedit1의 라인별 문자열을 합치되 합쳐진 문자열이 15자 이상이면

다음 라인으로 넘어가게 해야 합니다.  따라서 richedit2의 한라인에 꼭 15자가 들어가지 않아도 되구요.


설명이 이해가 되셨는지 모르겠습니다.....어떻게 하면 좋을까요...?