Probier in Memo1.OnChange folgendes:
Delphi-Quellcode:
for i := 0 to Memo1.Lines.Count-1 do
if Length(Memo1.Lines[i]) > 78 then
Delete(Memo1.Lines[i],79,Length(Memo1.Lines[i])-78);
Somit werden alle Zeilen automatisch auf 78 Zeichen abgeschnitten. Vielleicht weiß jetzt noch jemand wie man die aktuelle Zeile herausfindet...