[[Lepe]]

Aparte de lo comentado por dec, sé que es una pregunta simplona, pero, ¿usaís algún bucle?

Lo normal sería:

Código Delphi [-]
procedure Limpia(T:TWincontrol);
begin
for i:= 0 to t.controlCount-1  do
begin
  if controls[i] is TwinControl then Limpia(c)
  else if controls[i] is TEdit then  TEdit(controls[i]).Clear
  else if controls[i] is TDBEdit then TDBedit(controls[i]).Datasource := nil;
end;

Para llamarlo:

Código Delphi [-]
  Limpia(Form1);

Habría que estudiarlo un poco mejor, pero creo que se puede hacer.

Saludos