TListBox.Items.Add overloaden

[iphi]

Hallo,

ich möchte mir eine Variante von TListBox kreieren (z.B. TLogListBox), bei der die Methode Items.Add durch meine eigene Variante überladen wird.
Darin möchte ich z.B. jedes hinzugefügte Item auch in eine Log-Datei schreiben.

Ich habe sowas (abgeleitetes Objekt mit geänderter Methode) noch nie gemacht.
Kann mir jemand bitte Starthilfe geben?

Oder gibt es eine einfachere Möglichkeit?

Danke.

P.S.

Soweit bin ich:

Delphi-Quellcode:

unit ULogListBox;

interface

uses
  Windows, Messages, SysUtils, Classes, StdCtrls;

type
  TLogStrings = class(TStrings)
  public
    function Add(const S: string): Integer; virtual;
  end;


type
  TLogListBox = class(TListBox)
  private
    _logfile: string;
  published
    property LogFile: String read _logfile write _logfile;
  end;

procedure Register;

implementation


function TLogStrings.Add(const S: string): Integer;
begin
  Result := GetCount;
  Insert(Result, S);
  writeln(s);
end;


procedure Register;
begin
  RegisterComponents('Samples', [TLogListBox]);
end;

end.

Wie verheirate ich die modifizierten TStrings mit TLogListBox?