Das war schon nicht ganz falsch, aber versuche mal nach dem
self.free;
das hier:
Delphi-Quellcode:
for i := 0 to TComponent(self.Owner).ComponentCount -1 do
if TComponent(self.Owner).Components[i] is TYourFrame then
TYourFrame(TComponent(self.Owner).Components[i]).Repaint;
Gruß David