{%MainUnit unit1.pas}
procedure Do1;
begin
  case i of
  else

end;