for i := 0 to Frame.ComponentCount-1 do
　　if Frame.Component[i] is TLabel then
　　 (Frame.Component[i] as TLabel).Caption := ''
　　 else if Frame.Component[i] is TEdit then
　　 (Frame.Component[i] as TEdit).Text :='';
　　从这里可以看到Component[i]表示的是frame上的控件号
　　这里是清除frame所有tlabel和tedit的内容。