[Delphi] Необходимо оптимизировать код

[Danagul]

привет всем!!! помогите пожалуйста!! необходимо оптимизировать код

if (combobox2.ItemIndex=0)then
begin
if (image2.Visible=false) then (image2.Visible:=true) else (image2.Visible:=false) ;
image3.Visible:=false;
image4.Visible:=false;
image5.Visible:=false;
image6.Visible:=false;
end;

[newerow1989]

if (image2.Visible=false) then (image2.Visible:=true) else (image2.Visible:=false) ;

заменить на

image2.Visible:=not image2.Visible;