edit1.hide - edit 10.hide i stedet for edit1.hide; edit2.hide;

har har en kode der ser sådan ud:

----------
procedure TForm1.Edit66Change(Sender: TObject);
begin
  if edit66.Text = '1' then
    begin
      edit1.Hide;
      edit2.Hide;
      edit3.Hide;
      edit4.Hide;
      edit5.Hide;
      edit6.Hide;
      edit7.Hide;
      edit8.Hide;
      edit9.Hide;
      edit10.Hide;
    end;
end;
--------------

kan man så ikke gøre et eller andet, så man kun skal skrive fx

procedure TForm1.Edit66Change(Sender: TObject);
begin
  if edit66.Text = '1' then
    begin
      edit1.Hide; - edit10.hide;
    end;
end;

Og så skjuler den alle fra 1 - 10..

Håber selvfølgelig å¨et hurtigt svar :D

på forhånd tak