{%MainUnit unit1.pas}
procedure Do1;
begin
  if expr then begin

  code;
end;