[lmikle]

Группу операторов помести в begin...end.

Код:

case ListBox5.ItemIndex of
  0: Image30.Visible:=true;
  1: 
    Begin
       Image30.Visible:=false;
       Image31.Visible:=true;
    End;
end;