{%MainUnit unit1.pas}
procedure Do1;
begin
  Code;

Code;

end;

procedure Do2;
begin

end;