.Lines in einer geerbten TRichEdit ändern

[Green]

also ich hab jetzt folgende zwei Units:

RichEdit.pas

Delphi-Quellcode:

unit RichEdit;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, ComCtrls;

type
  TColoredStrings = class(TColoredStrings)
  end;

  T1RichEdit = class(TRichEdit)
  private
    { Private-Deklarationen }
    FMyLines: TColoredStrings;
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
    property Lines: TColoredStrings read FMyLines write FMyLines;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Beispiele', [T1RichEdit]);
end;

end.

ColoredStrings.pas

Delphi-Quellcode:

unit ColoredStrings;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, ComCtrls, Dialogs;

type
  TColoredStrings = class(TStrings)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    function AddLines(const S:string): integer;
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

implementation

function TColoredStrings.AddLines(const S:string): integer;
begin
  showmessage(S);
end;

end.

als die COloredStrings sind erfolgreich Installiert aber T1RichEdit kompo erscheint einfach nicht im inspektor und ich find kein Fehler


mfG Green

p.s. bin der von delphi-forum.de ^^