Memo lines insert

[Helmi]

wie wärs mit nem simplen Zeilenumbruch?

Delphi-Quellcode:

procedure TForm2.Memo1Change(Sender: TObject);
var
   caretLine : Integer;
   S_caretLine: String;

begin
  Memo1.OnChange := nil;
  caretLine := Memo1.CaretPos.Y;

  S_caretLine := Memo1.Lines[caretLine];

  If Length(S_caretLine) >= 10 then
    Memo1.Lines[caretLine] := S_caretLine + sLineBreak;

  Memo1.OnChange := Memo1Change;
end;