Hallo,
ein paar Kleinigkeiten:
Du verwendest als Eigenschaft Parent. Eine Komponente hat schon eine solche Eigenschaft. Benutze lieber einen anderen Namen.
Delphi-Quellcode:
destructor TCanvasBar.Destroy;
begin
inherited;
fFont.Free;
end;
inherited kommt im Destructor
immer am Schluss!
Die Methode Paint solltest Du entweder überschreiben, damit sie automatisch aufgefufen wird oder umbenennen, um die ursprüngliche Methode zu behalten.
Gruß
xaromz