[NumLock]

Код:

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

добавлено позже
пока писал уже ответили)))