#pas
destructor THIReBar.Destroy;
begin
   FlistCaption.Free;
   FreeData(@FData);
   //CBR.Free;    // вот эту строку и отпишись
   inherited Destroy;
end;