with...do mit mehreren Objekten

[lhmultimedia]

Ich programmier grad ein Hauptmenü , bei dem mehrere Buttons, nachdem man einen Button gedrückt hat, sichtbar und aktiv werden.
Ich wollte deshalb alle Buttons mit With...do auf enabled := true und visible := true stellen.
Seltsamerweise erscheint aber nur der Letzte Button auf dem Formular.
Kann mir wer helfen?
(Wers noch nich kapiert hat: Ich wollt nur fragen, wie es geht mit with...do mehrere Objekte anzusprechen )
Hier mein Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
with Button4, Button5, Button6, Button7, Button8, Button9, Button10, Button11
do
begin
Enabled := True;
Visible := True;
end;
end;