Markierung verschiebt sich in jeder Zeile

[nahpets]

Bin mir nicht sicher, aber wenn SelText leer ist, so gilt das gemachte quasi ab Cursorposition.

Also ungefähr so:

Delphi-Quellcode:

procedure TForm1.addZeile(sUeberschrift, sText: String);
begin
  // ab der aktuellen Curosrposition wird alles Fett.
  memoMessage.SelAttributes.Style := [fsBold];
  // sUeberschrift an der Cursorposition einfügen, 
  // der Cursor wandert entsprechend weiter.
  memoMessage.SelText := sUeberschrift + ' ';
  // ab der aktuellen Cursorposition, die sich nun hinter
  // dem sUeberschrift folgenden Leerzeichen befindet,
  // Text ohne besondere Formatierung.
  memoMessage.SelAttributes.Style := [];
  // Und nun hinter o. g. Leerzeichen sText einfügen und
  // 'nen Zeilenumbruch dranhängen.
  memoMessage.SelText := sText + #13;
end;

Ist SelText nicht leer, ergibt sich ein vollkommen anderes Verhalten.