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

end;