You can use Form's Components property as bellow:
procedure TForm1.ClearEdit;
var
j: Integer;
nComp : Integer;
begin
nComp := ComponentCount -1;
if nComp >= 0 then
begin
for j := 0 to nComp do
begin
if Components[j] is TEdit then
begin
(Components[j] as TEdit).Text := '';
end;
end;
end;
end;
If there are any TEdit in the Form that you don't want to clear, you can use the Tag property to identify them.
HTH,
Alphonsus.