UNIT UnitD;

   INTERFACE {$classes+}


   IMPLEMENTATION

       VAR
          DoInit: Boolean;

       PROCEDURE X(B: Boolean);
          BEGIN
          END;

       PROCEDURE P(FirstTime: Boolean);

          BEGIN
             IF FirstTime THEN
                BEGIN
                X(True);
                DoInit := True;
                END
             ELSE IF DoInit THEN
                BEGIN
                X(False);
                DoInit := False;
                END;
          END;
END.

