Hola...
Primero, me imagino que te confundiste al momento de teclear tu mensaje, ya que la clase a la que te refieres es
TCheckListBox. Esta clase desciende de
TCustomListBox y tiene un método
AddItem que puede ser redefinido. En tu caso esto quedaría como:
Código Delphi
[-]
type
TNewCheckListBox = class(TCheckListBox)
public
procedure AddItem(Item: string; AObject: TObject); override;
end;
implementation
procedure TNewCheckListBox.AddItem(Item: string; AObject: TObject);
var
Str: string;
begin
Str := Format('%s - %s', [Item, DateToStr(Now)]);
inherited AddItem(Str, AObject)
end;
Espero te sirva.
Saludos...