Delphi - Como afectar varios compoentes de una misma clase

necesito limpiar varios edti al mismo tiempo , me dieron un buen ejemplo pero no me sirve
ya que da un error. este es el ejemplo

i:= 0;
while i < ComponetCount - 1 do
begin
if Componet[i] as TEdit then
Component[i].clear
inc(i)
end;

pero en el .clear da error

for i := 0 to ComponentCount - 1 do
if Component[i] is TEdit then
(Component[i] as TEdit).clear;