habs hinbekommen das ereignis zu schreiben
bei der erstellung eine procedure von OnChange zuweisen
FItems.OnChange := aendern;
und die prodedure defenieren und anweisungen reinpacken
Delphi-Quellcode:
procedure TOvaleLeiste.aendern(Sender : TObject);
begin
refresh;
end;