[LordRF]

y si quieres limpiarlos todos

Código Delphi [-]
Procedure LimpaEdit;
var
i : Integer; 
begin 
 for i := 0 to ComponentCount -1 do 
 if Components[i] is TEdit then 
begin 
 TEdit(Components[i]).Text := ''; 
end; 
end;