Delphi - help borrar

como hago para borrar todos loe edit de mi formulario sin borrar uno por uno.
ej: edit1.clear,
edit2.clear,
edit3.clear
gracias

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
e:Tedit;
begin
for i:=0 to Form1.ComponentCount - 1 do
begin
If Form1.Components[i] is Tedit then
begin
e:=Form1.Components[i] as Tedit;
e.Text:='';
end;
end;
end;

El unico problema con este código es que si los componentes TEdit son muchos se pone lento, digamos que puedes ver cómo se van borrando los Tedits del form, espero que eso no sea critico ya que la aplicación deja de responder mientras tanto.

En lugar de usar las propiedades ComponentCount y Components, utiliza ControlCount y Controls, será más rápido (hay menos controles que componentes) y además es más lógico ya que ¿para qué vas a recorrer los componentes si lo que buscas son controles?.

Un saludo.

Porque justamente para el TEdit es mas lento encontrar la propiedad text que con TComponent (o será solo mi máquina?, no lo se).

No tiene que ver con TEdit. Es más lento recorrerse la lista de Components que de Controls porque, sencillamente, un Form (o cualquier contenedor) tiene más componentes que controles. Recordemos que TControl desciende de TComponent y por tanto, nunca podrá haber más controles que componentes dentro de un contenedor.