procedure %_APPTYPE%.Call%_DLGFUNC(_DLGNUM)%;
var Result : Word;
@IF!EQUAL %_DLGDATAFLAG(_DLGNUM)% 0
    D      : T%_DLGFUNC(_DLGNUM)%Data;
@ENDIF
begin
@IFEQUAL %_DLGDATAFLAG(_DLGNUM)% 0
  Result:=%_DLGFUNC(_DLGNUM)%;
  @ELSE
  Result:=%_DLGFUNC(_DLGNUM)%(D,False);
@ENDIF
end;