de vuelta con la limpieza de edit

[botones67]

hola que tal.
Ayer me dieron una solución para limpiar el contenido de la propiedad text una serie de edit en tiempo de ejecución.
Estos edit los tengo simulando un memo.

El codigo propuesto esra el siguiente....sabiendo que los edit se llaman line1,line2,line3....... asi hasta 10.
-----------------------------------------------------
Procedure TForm1.LimpiaEdits;
var
I: Integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TEdit then
line(Components[i]).Text := '';
o tambien con
line(Components[i]).clear;
end;
-----------------------------------------------------
Da error en line no definida.

además he notado que si el codigo lo pongo dentro del evento
oncreate del form1, si que detecta lo que es line.

Mirar, me podeis decir como puedo meter este codigo en una funcion o procedure para yo llamarla desde un botón cuando quiera para borrar el contenido de la propiedad text de los edit.


Saludos , y gracia anticipadas.
botones67@hotmal.com