Lazarus Borrar los EDIT y MEMO de golpe

Aun no he tenido tiempo de probar esta función que me paso un conocido por E-mail hace varios años, pero la voy a publicar ya que me parece muy interesante:

 

Código:

procedure TForm1.Button1Click(Sender: TObject);   procedure VaciaComponentesDeEdicion;   var     n : integer;   begin     for n:=0 to Pred(ComponentCount) do begin       //Recorremos los componentes de la form y los vaciamos       if Components[n] is TEdit then TEdit(Components[n]).Clear         else       if Components[n] is TMemo then TMemo(Components[n]).Lines.Clear         else       if Components[n] is TDBEdit then TDBEdit(Components[n]).Clear;     end;   end; begin   VaciaComponentesDeEdicion; end;