{%MainUnit unit1.pas} procedure Do1; begin end; procedure Do2; begin end;