[eXplorer]

на форме имеется 99 edit'ов... нужно во все записать какое нибудь значение...

делаю так:

Код:

procedure clear();
var
i:integer;
edit:TComponent;
begin
for i:=1 to 99 do begin
edit.FindComponent('edit'+inttostr(i));
(edit as Tedit).text:='0';
end;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
clear;
end;

лезит эксэпшн A/V... в чем ошибка
смотрел через отладчик - лезит после этой строки:

edit.FindComponent('edit'+inttostr(i));