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.