PageControl 清除tabsheet

[bruceoffice]

RzPageControl 我现在用数据库动态创建了tabsheet,但是原有tabsheet我想清除,如何清格,
RzPageControl.clear不行的

[sololie]

RzPageControl1.Pages[ i ].Free; // 移除第 i 个tabsheet

[s11ss]

var I: Integer; begin with RzPageControl1 do for I:=0 to Pred(PageCount) do Pages[0].Free; end;