TRichEdit Standard-Formatierung restaurieren

[Andreas H.]

Hallo,

ich kriegs nicht hin:

Delphi-Quellcode:

procedure TNewMessageForm.FormCreate(Sender: TObject);
begin
  // Design-Einstellungen retten
  FDefAttributes:=TjvTextAttributes.Create(RTFEdit,atDefaultText);
  FDefAttributes.assign(RTFEdit.DefAttributes);
end;

procedure TNewMessageForm.doSendMsg(ReciepNames:TStringList);
var
  i:integer;
  DocList,ReciepList:TIntegerList;
begin
  try
    // Einstellungen restaurieren
    RTFEdit.SelStart := MaxInt;
    RTFEdit.SelAttributes.Assign(FDefAttributes);

    // ggf. Verteiler anfügen
    if CBVerteiler.Checked then
    begin
      // Verteiler anfügen
      RTFEdit.Lines.Add(' ');
      RTFEdit.Lines.Add('------------------------');
      RTFEdit.Lines.Add('Verteiler:');
      for i:=0 to ReciepNames.Count-1 do
        RTFEdit.Lines.Add('    '+ReciepNames.Strings[i]);
    end;
...
end;

Was mache ich denn falsch?

Gruß Andreas