[Vayrus]

Код:

procedure ChangeValues;
var
I : Integer;
begin
with Form1 do
begin
for I := 0 to ComponentCount - 1 do
begin
if (Components[i] is TEdit) then
begin
if I in [6..19] then
(Components[i] as TEdit).Text := '0,00';
end;
Application.ProcessMessages;
end;
end;
end;