[delphi] procedura przed zdarzeniem w komponencie

Mam takie małe pytanko, pisze sobie własny komponent oparty na klasie TListBox, tam znajduje sie zdarzenie OnDrawItem. Chodzi mi o to aby sam komponent wychwytywał to zdarzenie, wykonywał określone algorytmy w tej procedurze, a nastepnie wykonywal algorytmy przypisane do komponentu przy tym zdarzeniu.
Np.:
Normalniie przy zwyklym standardowym ListBox'ie pod zdarzeniem OnDrawItem wykonuje jakies procedury:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
    {jakies procedury}
end;

Chcialbym aby te procedury byly wykonywane automatycznie w samym komponencie a samo zdarzenie OnDrawItem pozostawało wolne i gotowe do ewentualnego uzupełnienia przy pisaniu programu.

Z gory dzieki za pomoc.

W sekcji private swojego nowego komponentu dodaj:

procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState); override;

W tej procedurce możesz wpisać kod, który będzie autmatycznie realizowany przez komponent przy zdarzeniu OnDrawItem.