[Pilot_Red]

пользуйся

Код:

procedure clear();
var
i:integer;
edit:TComponent;
begin
for i:=1 to 99 do begin
(findcomponent('Edit'+inttostr(i)) as tedit).Text:='0';
end;
end;