Markierung verschiebt sich in jeder Zeile

[TBx]

Davon ausgehend, das Selstart genau den Punkt zeigt, an dem man in ein RichEdit einfügt, kann man ohne große Rechnerei auch folgendes machen:

Delphi-Quellcode:

procedure TForm1.addZeile(sUeberschrift, sText: String);
begin
  memoMessage.SelAttributes.Style := [fsBold];
  memoMessage.SelText := sUeberschrift + ' ';
  memoMessage.SelAttributes.Style := [];
  memoMessage.SelText := sText + #13;
end;