PropEdit für "Lines"

[Nalincah]

Hab das mit dem Editor soweit hingekriegt

Code:

//------------------------------------------------------------------------------
procedure TSKQRAdressLabelProperty.Edit;
var
  MyText : TStrings;
  LabelEditor : TSKQRAdressLabelPropEd;
  m : TMemoryStream;
begin
  MyText := TStrings(GetOrdValue);
  LabelEditor := TSKQRAdressLabelPropEd.Create(Application);
  m := TMemoryStream.Create;
  try
    MyText.SaveToStream(m);
    m.Position := 0;
    LabelEditor.RichEditFelder.Lines.LoadFromStream(m);
    LabelEditor.FontName.Items.Assign(Screen.Fonts);
    if LabelEditor.ShowModal = mryes then
    begin
      m.Position := 0;
      LabelEditor.RichEditFelder.Lines.SaveToStream(m);
      m.Position := 0;
      MyText.LoadFromStream(m);
      TStrings(GetOrdValue).LoadFromStream(m);
    end;
  finally
    LabelEditor.Free;
    m.Free;
  end;
end;

Es handelt sich dabei um ein TQRRichtText dem man in die "Lines" Property formatierten Text einfügen kann. (Mit RTF-Code). Es klappt auch, nur leider ist der Text, sobald ich das Programm mit der Kompo starte nicht mehr formatiert...Woran liegt das????

[edit=MrSpock]Auf Wunsch vom General geschlossen. Mfg, MrSpock[/edit]