.Lines in einer geerbten TRichEdit ändern

[Green]

also ich hab folgendes problem:

ich will eine Komponente von TRichEdit ableiten welche zwar die funktion Lines.Add hat diese aber nicht normal ausführt (also override) sondern stadessen eine eigene.

soweit bin ich bereits:

Delphi-Quellcode:

unit TestStrings;

interface

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

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

implementation

function TTestStrings.Add(const S:string): integer; override;
begin
  showmessage(S);
end;

end.

so die is jetzt auf den ersten blick ein bischen unnötig aber das wird natürlich geändert
jedenfalls ist mein Problem jetzt wie ich meine Frischerzeugte Klasse jetzt in meine geerbte TRichEdit einfüge als ERSATZ für Lines es soll aber natürlich alle eigenschaften und AUSWIRKUNGEN haben wie ein normales Lines nur das es eben statt Add mein showmessage macht.

kann mir das jemand erklären?

mfG Green