.Lines in einer geerbten TRichEdit ändern

[Green]

ääähm das problem hab ich jetzt soweit geköst, also es funktioniert alles, aber wenn ich jetzt die function Add überschreiben will geht des irgendwie nit:

Delphi-Quellcode:

type {...}
  public
    //function AddLines(const S:string): integer;
    function Add(const S:string): integer; override;
     {...}

implementation

     {...}

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

warum geht des nit? ich krieg beim ausführen immer ne EAccesViolation...