Hallo,
das könnt ihr beispielsweise so lösen:
Delphi-Quellcode:
procedure TForm1.Memo1Change(Sender: TObject);
begin
with Memo1 do
begin
if Length(Lines[CaretPos.Y]) >= 69 then
Lines[CaretPos.Y] := Lines[CaretPos.Y] + #13#10;
end;
end;
Memo.CaretPos.Y bzw.
Memo.CaretPos.X beinhaltet die aktuelle Zeile/Spalte.