[Страдалецъ]

Чем именно не подходит? Имена полей не однотипные? Можно тогда просто по типу контрола чистить:

Код:

Var i: Integer;
begin
 for i := 0 to ControlCount - 1
 do if Controls[i].ClassType = TEdit
    then TEdit(Controls[i]).Clear;
end;