[M.A.D.M.A.N.]

Код:

procedure Nvl_(const AEdList: array of TEdit);
var
  i: integer;
begin
  for i := 0 to Length(AEdList) - 1 do
    with AEdList[i] do
      if Text = '' then
        AEdList[i].Text := '0';
end;
...
Nvl_([edit1, edit2, edit3...edit100]);