.Lines in einer geerbten TRichEdit ändern

[Green]

also ich hab folgenden code in einem Package installiert und es kam auch die meldung das die Kompo installiert wurde, aber immer wenn ich sie dann auf ein formular ziehe, kommt wenn ich die strg+leer taste drück 'programmierhilfe kann nicht aufgerufen werden das der quelltext fehler enthält, aber da is absolut kein fehler.. kannst du mir helfen?

hier die codes:
das meine Kompo (kennste die )

Delphi-Quellcode:

unit Unit2;

interface

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

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


  TQRichEdit = 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', [TQRichEdit]);
end;

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

end.

und hier der aufruf:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Unit2;

type
  TForm1 = class(TForm)
    Button1: TButton;
    QRichEdit1: TQRichEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage('asd');
end;

end.

aber wo zur hölle is der Fehler???????