Hola,
Sé bienvenido al ClubDelphi, en primer lugar. Creo que lo que puedes andar necesitando es algo parecido a lo siguiente:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to Self.ComponentCount-1 do
begin
if Self.Components[i] is TEdit then
TEdit(Self.Components[i]).Clear;
end;
end;
Podemos ir un poquitín más allá y preparar un procedimiento algo más genérico que se encarge de la tarea:
Código Delphi
[-]
procedure ClearFormEdits(form: TCustomForm);
var
i: integer;
begin
if not Assigned(form) then
raise Exception.Create('Es preciso un TForm válido');
for i := 0 to form.ComponentCount-1 do
begin
if form.Components[i] is TEdit then
TEdit(form.Components[i]).Clear;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ClearFormEdits(Self);
end;