procedure THIVistaPanel._onResize(Obj:PObj);
var
  i: integer;
begin
  inherited;
  Control.Invalidate;
  for i := 0 to Control.ChildCount-1 do
     Control.Children[i].Invalidate;
end;
полёт нормальный