- var
- i:integer;
- begin
- for i:=0 to GroupBox1.ControlCount-1 do
- begin
- if GroupBox1.Controls[i].ClassType=tedit then
- begin
- (GroupBox1.Controls[i] as tedit).Text:='';
- end;
- if GroupBox1.Controls[i].ClassType=TComboBox then
- begin
- (GroupBox1.Controls[i] as TComboBox).ItemIndex:=-1;
- end;
- end;