Um meinen Vorschlag von oben etwas zu verdeutlichen:
Delphi-Quellcode:
RichEdit1.WordWrap := true;
{ ... }
procedure TForm1.RichEdit1Change(Sender: TObject);
begin
if RichEdit1.Lines.Count > 1 then begin
RichEdit1.ReadOnly := true; // eine Möglichkeit...
RichEdit1.Lines.Delete(1);
end;
end;
Um das zu erklären: Du guckst, ob die Anzahl der Zeilen größer als 1 ist, und wenn ja löscht du die 2. Zeile (Delphi fängt bei 0 an).
Chris