Author: Jonas Bilinkevicius

Using a TMemo, is it possible to convert each wrap to a CR/LF, or even at a 
specific column (like 67 or 80)?

Answer:

1   const
2     limit = 67;
3   var
4     S: string;
5     i: Integer;
6   begin
7     S := Memo1.Text;
8     Memo1.Clear;
9     repeat
10      i := limit;
11      while S[i] <> ' ' do
12        Dec(i);
13      Memo1.Lines.Add(Trim(Copy(S, 1, i)));
14      Delete(S, 1, i);
15    until
16      Length(S) = 0;
17  end;