with...do mit mehreren Objekten

[Oxmyx]

Die With-Anweisung gilt immer nur für ein Objekt, nämlich das im innersten Gültigkeitsbereich.

Hier hast du noch ein With-Block drin:

Delphi-Quellcode:

for i := 4 to 11 do begin
  with TButton(FindComponent('Button' + IntToStr(i))) do begin
    Visible := True;
    Enabled := True;
  end;
end;