Можешь извращаться типа массивом Pointer'ов:
Код:
var pt:array of ^TWinControl;
ccount:Integer;
...........
begin
ccount:=6;
setlength(pt, ccount);
pt[0]:=@edit1;
pt[1]:=@edit2;
pt[2]:=ComboBox1;
..............
if pt[0].ClassType = TEdit then
(pt[0]^ as TEdit).text:='' else
if pt[0].ClassType = TComboBox then
(pt[0]^ as TCombobox).clear else
....................................