Delphi-Quellcode:
procedure TForm1.addZeile(sUeberschrift, sText: String);
begin
memoMessage.SelAttributes.Style := [fsBold];
memoMessage.SelText := sUeberschrift + ' ';
memoMessage.SelAttributes.Style := [];
memoMessage.SelText := sText + #13;
end;
Ich hätte aber erwartet, dass noch wenigenst zwei SelStart/SelLength dort drin fehlen.
Meinem Versändis nach wird alles aktuell Markierte so durch die sUeberschrift überschreiben
und der sText überschreibt/löscht danach auch nochmal die sUeberschrift.